1) if B: = 0 then Writeln ('Деление на нуль невозможно');
2) if a > b then max: = a else max: = b;
3) if (a>b) and (b>0) then c:=a+b else (‘no’);
4) if a < b then min := a else min := b;
5) if a > b else max: = b then max: = a;
6) if a>b and b>0 then c:=a+b ;
def f():
n = int(input())
numbers = [int(input()) for i in range(n)]
return sum(numbers)
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97