1.

uses crt;
var i,n:integer;

function kt(n:integer):boolean;
var s,i:integer;
begin
kt:=true;
 if n<2 then exit(false)
 else
  for i:=2 to round(sqrt(n)) do
   if n mod i=0 then exit(false);
s:=0;
while n<>0 do
begin
 s:=s+n mod 10;
 n:=n div 10;
end;
if s mod 2=0 then exit(true) else exit(false);
end;

begin
clrscr;
write('N='); 
readln(n);
for i:=1 to n do
 if  kt(i) then write(i,' ');
readln;
end.

2.

uses crt;
var v,r:text;
i,k,max:integer;
s:string;
a:array[1..100] of string;
begin
assign(v,'Tudai.inp');
reset(v);
readln(v,s);
assign(r,'Tudai.out');
rewrite(r);
k:=1;
if s[length(s)]<>' ' then insert(' ',s,length(s)+1);
for i:=1 to length(s) do
 if s[i]<>' ' then a[k]:=a[k]+s[i] else
  if s[i+1]<>' ' then
   k:=k+1;
max:=length(a[1]);
for i:=2 to k-1 do
 if max<length(a[i]) then max:=length(a[i]);
for i:=1 to k-1 do
 if length(a[i])=max then
  writeln(r,a[i]);
write(r,k-1);
close(r);
end.

1.

uses crt;
var n,i: integer;
function nt(n: integer): boolean;
var i: integer;
begin
    nt:=true;
    if n<2 then nt:=false;
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then begin
        nt:=false;
        break;
    end;
end;
function sum2(n: integer): boolean;
var s: integer;
begin
    s:=0;
    while n>0 do begin
        s:=s+n mod 10;
        n:=n div 10;
    end;
    if s mod 2 = 0 then sum2:=true else sum2:=false;
end;
begin
clrscr;
    write('N = '); readln(n);
    for i:=1 to n do if nt(i) and sum2(i) then write(i,' ');
    readln
end.

2.

uses crt;
var fi,fo: text;
    s: string;
    dem: array[1..255] of string;
    i,d,max: integer;
begin
    assign(fi,'Tudai.inp'); reset(fi);
    assign(fo,'Tudai.out'); rewrite(fo);
    read(fi,s);
    dem[1]:=s[1]; d:=1;
    for i:=2 to length(s) do begin
        if s[i]<>' ' then dem[d]:=dem[d]+s[i] else d:=d+1;
    end;
    max:=length(dem[1]);
    for i:=2 to d do if max<length(dem[i]) then max:=length(dem[i]);
    for i:=1 to d do if length(dem[i])=max then writeln(fo,dem[i]);
    write(fo,d);
    close(fi);
    close(fo)
end.