Verified answer

Задание 3

A = символьный, B = целый, C = вещественный, D = логический.

Задание 4

1. program Perimeter;
2. var a, b, c, P: real;
3. begin
4.  Writeln('ВВЕДИТЕ ДВА КАТЕТА И ГИПОТЕНУЗУ: ');
5.  Readln(a, b, c);
6.  P := a + b + c;
7.  Writeln(P);
8. end.