Написать программу, которая запрашивает с клавиатуры четырехзначное число и сравнивает в нём первую и последнюю цифры, вторую и третью цифры. если первая цифра равна четвёртой, а третья второй, то выводит на экран "палиндорм", а в противном случае "не палиндорм".

Var
  a:integer;
begin
  write('Введите число ');
  readln(a);
  if (a div 1000 = a mod 10) and ((a div 100)mod 10 =(a div 10)mod 10)then
  writeln('Палиндром')
  else writeln('не Палиндром');
end.

Var
     a,b,c,max:integer;

begin
    writeln('Введите возраст призеров:');
    readln(a,b,c);
    if (a < b) and (a < c) then
    begin
        max := a;
        writeln('Самый младший - первый призер, ему ',max,' лет.');
    end;
    if (b < a) and (b < c) then
    begin
        max := b;
        writeln('Самый младший - второй призер, ему ',max,' лет.');
    end;
    if (c < a) and (c < b) then
    begin
        max := c;
        writeln('Самый младший - третий призер, ему ',max,' лет.');
    end;
end.

var a, b, c, d, i, j :integer;
     s :array [1..100,1..100] of integer;
begin
   b:=63999;
   c:=-63999;
   for i:=1 to 15 do
      begin
      writeln;
      for j:=1 to 15 do
         begin
         s[i,j]:=random(127998)-63999;
         a:=a+s[i,j];
         if s[i,j]>c then c:=s[i,j];
         if s[i,j]<b then b:=s[i,j];
         write (s[i,j],' ');
         end;
      end;
   writeln;
   writeln ('Сумма элементов = ', a);
   writeln ('Максимальный элемент = ', c);
   writeln ('Минимальный элемент = ', b);
end.