<span>Это файл инициализации сервера сертификатов для Paradox.NET. Он нужен .</span>
Программа выведет такие значения
8 -2
Программа для резервного копирования данных на системный диск.
Uses crt;
var a : real;
p : boolean;
i : integer;
procedure haltproc;
begin
writeln('неверные данные');
writeln('a>=2');readln;
halt;
end;
begin
clrscr;
write('a=');readln(a);
if a<2 then haltproc;
if a=2 then begin
writeln2('простое');
readln;halt;
end;
p:=true;
for i:=2 to trunc(a-1) do
if a/i=trunc(a/i)
then p:=false;
if p=true
then write('простое')
else write('не простое');
readln;
end.