Написать программы на языке Паскаль с условием.20 баллов

1.
program list;var x,y,a,b:integer;beginwriteln('Введите размер листа x на y');readln(x,y);writeln('Введите размер изображения a на b');readln(a,b);if (xgt;a) and (ygt;b) thenwriteln('Можно расположить')elsewriteln('Нельзя расположить');end.
2.
program opred;var i,n:integer;    natch:string;    cif: char;beginwrite('Введите естественное число N: ');readln(natch);write('Введите цифру A: ');readln(cif);n:=length(natch);if natch[n]=cif then write('Правильно')elsewriteln('Неверно');end.
3.program opred;var i,n,g,sum,max,kol:integer;    chis: array[1..100] of integer;beginwriteln('Вводите числа: ');i:=0;repeat i:=i+1;readln(chis[i]);until(chis[i]=0);n:=i-1;for i:=1 to n do //asum:=sum+chis[i];writeln('a) sum = ',sum);for i:=1 to n do //bbeginif (chis[i]lt;0) and (chis[i] mod 2 = 0) thenkol:=kol+1;end;writeln('b) kol = ',kol);for i:=1 to n do beginif chis[i]gt;chis[i+1] thenmax:=chis[i];end;writeln('c) max = ',max);end.