Введя с клавиатуры значение катета прямоугольного треугольника , вычислить и вывести

Pascal

var a,b,s:real;

begin

 write('Введите значение катета: ');

 readln(a);

 b:=a * 1.5;

 s:=(a*b)/2;

 writeln('Площадь треугольника: ',s);

end.

C++

include lt;iostreamgt;

using namespace std;

int main()

setlocale(LC_ALL, "ru");

float a, b, s;

cout lt;lt; "Введите значение катета: ";

cin gt;gt; a;

b = a * 1.5;

s = (a*b) / 2;

cout lt;lt; "Площадь треугольника: " lt;lt; s lt;lt; endl;

system("pause");