Цикл встречается в сказке Репка
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
72(9-&+;%6::+)9&977-764%+
1) 21122
То есть 1+2^2^2++2+2
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
if (a1*a2 mod 3 = 0) then
begin
writeln('da');
end
else
writeln('net');
end.