Дайте полный и правильный ответ! Покажите куда писать ответ!

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.

uses graphabc;

begin

setwindowsize (600,555);

SetPenWidth(2);

rectangle (200,200,400,499);

FloodFill(300,300,clBurlyWood);

rectangle (225,225,275,275);

FloodFill(250,250,clLightCyan);

line (225,250,275,250);

line (250,250,250,275);

rectangle (325,225,375,275);

FloodFill(350,250,clLightCyan);

line (325,250,375,250);

line (350,250,350,275);

rectangle (225,400,275,450);

FloodFill(250,425,clLightCyan);

line (225,425,275,425);

line (250,425,250,450);

rectangle (325,425,375,500);

FloodFill(350,490,clMaroon);

pie (350,425,25,0,180);

FloodFill(350,420,clMaroon);

line (200,200,300,100);

line (300,100,400,200);

FloodFill(300,110,clChocolate);

circle (300,160,20);

FloodFill(300,160,clLightCyan);

line (375,175,375,100);

line (375,100,355,100);

line (355,100,355,155);

FloodFill(370,110,clLightGray);

circle (550,50,30);

FloodFill(525,50,clYellow);

line (535,25,510,0);

line (525,35,470,15);

line (520,50,475,50);

line (525,65,485,90);

line (537,78,505,110);

line (550,80,535,120);

line (565,75,565,120);

line (575,65,595,90);

pie (500,413,30,0,180);

FloodFill(500,400,clRed);

rectangle (495,413,505,500);

FloodFill(500,495,clChocolate);

end.