Написать программу на Паскале

1. Найти объем параллелепипеда (стороны ввести с клавиатуры)

2. Высота треугольника равно 7 см, а основание 3 см. Написать программу, вычисляющую площадь треугольника

3. Вывести на экран сообщение "Чему равно 10 : 2?" (Написать часть программы для этого вывода)

№1

var vol, a, b, c: real;

beginwrite ('Введите сторону а: ');

readln (a);

write ('Введите сторону b: ');

readln (b);

write ('Введите сторону c: ');

readln (c);

vol : = a * b * c;

writeln ('Объем прямоугольного параллелепипеда равен ', vol);

end.

№2

const a = 3;

const h = 7;

var S: real;

begin

S : = 1 / 2 * a * h;

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

end.

№3

var s: string;

begin

s : = 'Чему равно 10 : 2?';

writeln (s);

readln ();

end.