Var a,n,x,m,max: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
Программа написана на языке Pascal
var
x: integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x * x)
else
writeln(x * x * x)
end.
С Р Е Д А
сре , еда , ред , сда , дас , рес , аде , дер , дар , сер , сар , рад , рас , ера , еса ,асе , - вроде бы все 16 вышло
Уважаемые господа,
Настоящим сообщаем, что ввиду обстоятельств
непреодолимой силы (из-за сильного шторма), порт... временно закрыт и мы
не сможем поставить ваше судно под разгрузку.
Мы будем вам очень признательны, если вы задержите отгрузку
оборудования до нашего уведомления о прекращении форсмажорных
обстоятельств.
Надеемся, что эта кратковременная задержка не скажется отрицательно на графике поставок.