На каникулах мистер фокс побывал в нескольких небольших европейских городах. он помнит, что наиболее понравившиеся города ему удалось обойти полностью, пройдя по каждой улице ровно два раза, но не удалось обойти полностью, пройдя по каждой улице один раз. а те города, которые понравились меньше, удалось обойти и пройдя по каждой улице ровно один раз, и пройдя по улице ровно два раза. на рисунках изображены схемы городов, в которых побывал мистер фокс. выберите схемы всех понравившийся ему городов. обойти полностью означает побывать на всех улицах и площадях города. на схемах точками обозначены площади, линиями - улицы.
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.