ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby вопрос по паскалю/дэлфи

   

Опции темы

Поиск в этой теме

Опции просмотра

program maxchislo;
uses crt;
label D3;
var
i, chislo, max : integer;
begin
D3:writeln('введите число');
readln(max);
for i:=2 to 10 do begin
readln(chislo);
if chislo>max then max:=chislo
end;
writeln('max=', max);
goto D3;
end.