Нужно написать на языке паскаля. 1) дано четырёхзначное число. определить равна ли сумма двух первых его цифр сумме двух его последний цифр. 2 найти произведение всех целых чисел от а до 20 ( значение а вводится с клавиатуры, 0< =a< =50)

Не знаю в каком языке программирования конкретно нужно, но в с# код программы в консольном варианте  выглядит так console.writeline("введите предложение в котором присутствует 2 запятые");         string a = console.readline(); //вводим текст в переменную а   string []b = a.split(','); //разбиваем наше предложение на части по запятым и заносим их в массив console.writeline("");   // просто отделяем результат от остальной массы текста.  console.writeline(b[1]);   //и выводим результат на экран, все знаки между 2 запятыми.      console.readline(); если нужно могу скинуть готовый фаил  программы.

program pr;

label cyc;

const

sizex = 4; // количество ячеек в каждой строке

sizey = 4; // количество строк

var

matrix: array[1..sizey, 1..sizex] of integer;

i,k: integer;

begin

writeln('чтение элементов массива');

for i: =1 to sizey do for k: =1 to sizex do readln(matrix[i,k]);

writeln('исходный массив: ');

for i: =1 to sizey do begin

for k: =1 to sizex do begin

  write(matrix[i,k]);

end;

writeln('');

end;

writeln('подходящие строки: ');

for i: =1 to sizey do begin

for k: =2 to sizex do begin

  if matrix[i,k]> =matrix[i,k-1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.