Введя с клавиатуры значение катета прямоугольного треугольника , вычислить и вывести на экран значение его площади , если второй катет в 1,5 раз больше введённого

Pascal

var a,b,s:real;

begin

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

 readln(a);

 b:=a * 1.5;

 s:=(a*b)/2;

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

end.

C++

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "ru");

float a, b, s;

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

cin >> a;

b = a * 1.5;

s = (a*b) / 2;

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

system("pause");

}