Составить программу в pascal abc (a-b)^2

Var a,b: integer;
Begin
Writeln('Введите a,b');
readln(a,b);
Writeln(sqr(a-b));
readln();
end.

//PascalABC.Net
//NaaMan
var
    a, b : real;
begin
    write('Введите значения А и В : ');
    readln(a, b);
    writeln('Результат: ', (a - b) * (a - b))
end.