program task1;
var a,b,s:real;
begin
readln(a);
readln(b);
s:=a*b;
writeln('Площадь: ', s);
end.решение от Тутути не верно, S=a*b
program task1;
var a,b,s:real;
begin
readln(a);
readln(b);
s:=a*b;
writeln('Площадь: ', s);
end.
решение от Тутути не верно, S=a*b