1)var
chislo,max:integer ;
begin
Writeln('Введите числа');
max:=0;
Read(chislo);
while chislo <> 0 do
begin
If(chislo>max) then
max:=chislo;
Read(chislo);
end;
Writeln('Наибольшие число из веденных является ',max);
end.
2)
var
chislo,di,k:integer;
begin
Writeln('Введите число');Readln(chislo);
for di:= 1 to chislo do
begin
if((chislo mod di) = 0 ) then
begin
Writeln('Число делится на ',di);
k:=k+1;
end;
end;
if(k>2) then
Writeln('Число',chislo,' не простое');
if(k=2) then
Writeln('Число ',chislo,' простое');
end.
Объяснение:
