Var a, b, n, p: integer; // Переменные целочисленного типа. begin write('Длина: '); readln(a); // Задаём длину нашему треугольнику. write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику. n:=a*b // Формула что-бы узнать площадь прямоугольника. write('Площадь: ',b); // Выводим площадь на экран. p:=2*a+2*b; // Формула что-бы узнать периметр треугольника. write('Периметр: ',p); // Выводим периметр на экран. end.
a, b, n, p: integer; // Переменные целочисленного типа.
begin
write('Длина: '); readln(a); // Задаём длину нашему треугольнику.
write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.
n:=a*b // Формула что-бы узнать площадь прямоугольника.
write('Площадь: ',b); // Выводим площадь на экран.
p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.
write('Периметр: ',p); // Выводим периметр на экран.
end.