Бочка,стакан,кукла неваляшка.
<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
Program age;
var m:integer;
begin
readln(m);
if (m<=13) then writeln('детство');
if (m>=14)and(m<=24) then writeln('молодость');
if (m>=25)and(m<=59) then writeln('<span>зрелость</span>');
if (m>=60) then writeln('старость')
end.
Program E08;
uses crt;
var
X: array[-1000..1000] of integer;
S,i,k: integer;
begin
clrscr;
writeln('Введите массив X:');
for i:=1 to 10 do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
for i:=1 to 10 do
write(X[i],' ');
writeln;
K:=0;
for i:=1 to 10 do
begin
S:=X[i] mod 3;
if S = 0 then
K:=K+1
end;
writeln('Ответ: ',K)
<span>end.</span>
Почему-то код постоянно плывёт, поэтому я прикрепил решение скрином.