fungsi kuadrat dalam pascal

program kuadrat;

uses wincrt;

function dua(a:integer):integer;

var
x : integer;
begin
x:= (a*a);
dua:= x;
end;
var
a,x : integer;
begin
write ('masukan bilangan = ');
readln (a);
x:=dua(a);
writeln('jadi hasil bilangan setelah dikuadratkan adalah',x);
end.