Var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
<span>end.</span>
Это значек обозначающий программу
<span>Что за устройство, которое предназначенное для воспроизведения </span>видеосигнала<span> и </span>визуального<span> отображения </span>информации<span>, полученной от </span>компьютера<span>.(МОНИТОР)
</span>
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.