1.

uses crt;
var i,n:longint;

function kt(n:longint):boolean;
var s,i:longint;
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;
    for i:=2 to round(sqrt(n)) do if n mod i = 0 then begin
        nt:=false;
        break;
    end;
end;
function sum(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 sum:=true else sum:=false;
end;
begin
clrscr;
    write('N = ');
    readln(n);
    for i:=2 to n do if nt(i) and sum(i) then write(i,' ');
    readln
end.

2

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