Const
N=5;
var
a: array [1..N] of real;
d, r: real;
i, j, k: integer;
begin
for i:=1 to N do
begin
readln(a[i]);
if a[i]>d then
begin
r:=d;
d:=a[i];
end;
end;
writeln("самые высокие гвардейцы имеют рост ",r," и ", d);
<span>end.</span>
Ты наверное имеешь в виду Нельзя писать оскорбления, мат, посылать плохие фотографии и так далее?
Что бы найти пложадь круга надо число пи умножить на радиус в квадрате например 3,14×(2×2)=12,56
а про триугольник либо забыл либо не проходил
Этого года человек с кем то говорит по телефону