Вычислить значение выражения а(в квадрате)-2а,где а целое число

В Паскале:
uses crt;
var a, g:integer;
begin
write('a='); read(a);
g:=sqr(a)-2*a;
writeln('Значение а=',g);
end.