Program n1;
var a,b: integer;
begin
readln(a,b);
writeln('срзнач: ',(a+b)/2);
write('сргеом: ',sqrt(a*b));
end.
В)11
Кто_Придумал_Лимит_В_Двадцать_Символов?
var
a, b: real;
begin
writeln('введите длину');
readln(a);
writeln('введите ширину');
readln(b);
writeln('периметр прямоугольника ', 2 * (a + b));
end.
var z,x,c: real;
begin
write('стороны треугольника: ');
readln(z,x,c);
if (z + x <= c) or (x + c <= z) or (z + c <= x) then writeln ('нет такого треугольника')
else writeln('Периметр треугольника = ',z+x+c)
end.
1Алексей
2Евгений
3Михаил
4Борис
5Олег