Question

составьте программу вычисления площади треугольника с основанием a и высотой h. Значения a и h введите с клавиатуры.

Answer 1

program Test;

var a, h: integer;
s: real;

begin
  write('Vvedite osnovanie: ');
  readln(a); 
  write('Vvedite visoty: '); 
  readln(h);

  s := a * h / 2;

  writeln('S = ', s);
end.