program raf105;
var
a,b: integer;
S: real;
begin
write('Введите 2 числа (длины катетов): ');
readln(a,b);
S:= (a*b)/2;
writeln('Площадь: ',S);
end.
program raf105;
var
a,b: integer;
S: real;
begin
write('Введите 2 числа (длины катетов): ');
readln(a,b);
S:= (a*b)/2;
writeln('Площадь: ',S);
end.
PascalABC 3.4.2