Arya's Blog

Function Menghitung Kuadrat

function tanya_hitung:integer;
var
a:integer;
begin
writeln('masukkan nilai dari a :');readln(a);
tanya_hitung:=a*a;
write('hasilnya kuadrat ',a ,':');
end;
var
b:integer;
begin
writeln(tanya_hitung);readln;
end.