* Блок-схемы изображены на прикрепленной картинке
Задание 4.
var a, d, c, k, y: integer;
begin
readln(a, d, c, k);
y := (a - (d + 21) * 2) + (c - 7 * k);
writeln(y);
end.
Задание 5.
var k1, k2: real;
h, P, S: real;
begin
write('Введите первый катет: ');
readln(k1);
write('Введите второй катет: ');
readln(k2);
h := sqrt(sqr(k1) + sqr(k2));
P := k1 + k2 + h;
S := 0.5 * (k1 * k2);
writeln('Гипотенуза: ', h);
writeln('Периметр: ', P);
writeln('Площадь: ', S);
end.
