Pascal uloha

uses crt;
var i,b,x,k,y,o,u,m,n: integer;
    a,c: array [1..100] of integer;
begin
 clrscr;
 m:=0;
 n:=0;
 writeln ('Hadze hrac parny');
 writeln ('Cisla su: ');
 for i:=1 to 15 do begin
                   randomize;
                   x:=random(100)+1;
                   write (x,',');
                   delay(100);
                   k:= x mod 2;
                   if k=0 then begin
                               a[i]:=x;
                               m:=m+1;
                               end;
                   end;
 writeln;
 writeln ('Hadze hrac neparny');
 writeln ('Cisla su: ');
 for b:=1 to 15 do begin
                   u:=random(100)+1;
                   write (u,',');
                   delay(100);
                   k:= u mod 2;
                   if k>0 then begin
                               c[b]:=u;
                               n:=n+1;
                               end;
                   end;
 writeln;
 writeln ('Hrac menom parny ma parne cisla: ');
 for y:=1 to m do write (a[y],',');
 writeln;
 writeln ('Hrac menom neparny ma neparne cisla: ');
 for o:=1 to n do write (c[o],',');
 writeln;
 if m>n then writeln ('Vyhral hrac menom PARNY');
 if m<n then writeln ('Vyhral hrac menom NEPARNY');
 if m=n then writeln ('Nastala remiza');
 readln;
end.

uses crt;
var i,j,k,l,d,x: integer;
    a,b: array [1..100] of integer;
begin
 clrscr;
 randomize;
 i:=1;
 j:=1;
 writeln ('Hod kockou');
 for i:=1 to 15 do begin
                   x:=random(6)+1;
                   d:=x mod 2;
                   if d=0 then begin
                               a[i]:=x;
                               i:=i+1;
                               end;
                   if d>0 then begin
                               b[j]:=x;
                               j:=j+1;
                               end;
                   end;
 writeln ('Hrac parny ma tieto cisla: ');
 for k:=1 to i-1 do write (a[k]);
 writeln;
 writeln ('Hrac menom neparny ma tieto cisla: ');
 for l:=1 to j-1 do write (b[l]);
 readln;
end.

uses crt;
var i,p,n,d,x: integer;
    a,b: array [1..100] of integer;
begin
 clrscr;
 randomize;
 i:=1;
p:=1;          // zmena tu v premennych
n:=1;

 writeln ('Hod kockou');
 for i:=1 to 15 do begin
                   x:=random(6)+1;
                   d:=x mod 2;
                   if d=0 then begin
                               a[p]:=x;          // zmena tu a pod tymto
                               p:=p+1;
                               end;
                   if d>0 then begin
                               b[n]:=x;           // zmena tu a pod tymto
                               n:=n+1;
                               end;
                   end;
 writeln ('Hrac parny ma tieto cisla: ');
 for i:=1 to p-1 do write (a[i]);                  // zmena tu
 writeln;
 writeln ('Hrac menom neparny ma tieto cisla: ');
 for i:=1 to n-1 do write (b[i]);                   // zmena tu

if p>n then write (´Vyhral hrac parny´);
// + dalsie 2 podmienky

 readln;
end.

uses crt;
var x: string;
    j,d,n,k,p: integer;
begin
 clrscr;
 writeln ('Zadaj cislo v dvojkovej sustave');
 readln (x);
 d:=length(x);
 for j:=(d-1) downto 0 do begin
                          n:=x[j]*2;
                          for k:=1 to j do n:=n*n;
                          p:=p+n;
                          end;
 writeln ('Cislo je v desiatkovej sustave: ',p);
 readln;
end.