program start;
uses crt;
type
Func=Function(x:Real):Real;
Procedure PrintFunc(XPos:Byte;F:Func);
const

var
a,b,s:integer;
begin {PrintFunc}
s:=a*b;
begin
writeln ('Vvedite visoty');
readln (a);
writeln ('Vvedite dlinny storoni AC');
readln (b);
writeln ('ploshayd parallelogramma s=',s);
Readkey
End.