Program myprogram2;
var
a,h,s:real;
begin
writeln('Введите длину основания a');
write('a = ');
readln(a);
writeln('Введите длину высоты h');
write('h = ');
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ',a',' и высотой ',h,' равна = ',s);
readln;
readln;
end.
101011
(Я люблю ограничение по символам)
0..32 - это управляющие символы (\n, \t, \0, etc)
33..127 - это изображаемые символы (A, z, +, *, etc)
<h2>Ответ</h2>
Управляющий
var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
Сканер со слайд адаптером