1)Написать программу поиска чисел, лежащих в интервале от -5 до 5, в последовательности чисел, вводимых с клавиатуры, предшествующих первому введенному нулю . Контрольный пример: 1,10,-4,5,-16,-5,0. 2)Дано число n от 1 до 1000 и число m. Вывести результат квадрат разности числа n и число m.

написать на языке Pascal​

//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.

#include "conio.h" #include "stdlib.h" #include "iomanip" #include "iostream" #include "ctime" const int n=5; using namespace std;   void zapolnatb (int A[n][n]) {     srand(time(0));     for (int i=0;i<n;i++)     {         for (int j=0;j<n;j++)             A[i][j]=rand()%100-50;     } }   void vivodmat (int A[n][n]) {     for (int i=0;i<n;i++)     {         for (int j=0;j<n;j++)             cout<<setw(3)<<A[i][j];         cout<<endl;     } }   void naxogdenue (int A[n][n]) //max element v stroke {     int max;     int stl=0;     for(int i=0;i<n;i++)     {         max=A[i][0];         for (int j=0;j<n;j++)             if (max>A[i][j])             {                 max=A[i][j];                 stl=j;             }         cout<<setw(4)<<max<<setw(4)<<stl<<endl;     } }   void naxogdenuee (int A[n][n]) //min element v stroke {     int min;     int stl=0;     for(int i=0;i<n;i++)     {         min=A[i][0];         for (int j=0;j<n;j++)             if (min<A[i][j])             {                 min=A[i][j];                 stl=j;             }         cout<<setw(5)<<min<<setw(5)<<stl<<endl;     } }   void naxogdenueee (int A[n][n]) //min element v stolbce {     int min;     int str=0;     for(int j=0;j<n;j++)     {         min=A[0][j];         for (int i=0;i<n;i++)             if (min>A[i][j])             {                 min=A[i][j];                 str=i;             }         cout<<setw(6)<<min<<setw(6)<<str<<endl;     } }   void naxogdenu (int A[n][n]) //max element v stolbce {     int min;     int str=0;     int stl=0;     for(int j=0;j<n;j++)     {         min=A[0][j];         for (int i=0;i<n;i++)             if (min<A[i][j])             {                 min=A[i][j];                 str=i;                 stl=j;             }         cout<<setw(7)<<min<<setw(7)<<str<<endl;     } }   int main () {     int (A[n][n]);     zapolnatb (A);     vivodmat (A);     naxogdenue (A);     naxogdenuee (A);     naxogdenueee (A);     naxogdenu (A);     system ("pause");     return 0; }