Var a,i,k: integer;
Begin
write('Введите число: ');
readln (a);
k:=0;for i:=1 to a do
if a mod i = 0 then k:=k+1;
if k=2 then writeln(a,' простое число')
else writeln(a,' не является простым числом')
End.
<span><span><em>1) </em></span><em>Break</em></span><em />
<span><em>2) Esc</em><span>
<em>
3) Enter</em><span>
<em>
4) </em><span><em>Page Down</em></span></span></span></span>
Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>