program pravokutnik;
var a,b : integer;
begin
write ('Unesi stranicu a: ');
readln (a);
write ('Unesi stranicu b: ');
readln (b);
write ('Povrsina pravokutnika je: ', a*b);
readln;
end.
Evo... ovo racuna povrsinu pravokutnika...
A sta mislis pod 'kalkulator'? Mislis napravit u paskalu pravi kalkulator? Koji bi i izgledao kalkulator? S gumbicima? Ili sta...?