Напишите скрипт, который выводит на экран все целые положительные числа не меньше заранее заданного числа N, соответствующие следующему требованию: произведение первой и последней цифр равно квадрату средней.

1. var a, b, c: integer; begin   write('введите через пробел три числа: ');   readln(a, b, c);   if (a > b) then     if (b > c) then       write('сумма двух наибольших чисел: ', a + b)     else       write('сумма двух наибольших чисел: ', a + c)   else     if (c > a) then        write('сумма двух наибольших чисел: ', c + b)     else       write('сумма двух наибольших чисел: ', b + a) end. 2 . var x, f: real; begin   write('введите значение x: ');   readln(x);   if (x > 0) then     f : = (2 - x) / (x * x)   else     f : = 6 - (x * x * x);   writeln('значение функции при данном x: ', f) end. 3 . var a, b: integer;   write('введите через пробел два числа: ');   readln(a, b);   writeln('сумма чисел: ', a + b);   writeln('разность чисел: ', a - b);   writeln('произведение чисел: ', a * b) end.