#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
int i;
for (i = sqrt(a) + 1; i < sqrt(b); i++)
{
cout << i * i << " ";
}
return 0;
}
Var x,y: real;
begin
read(x);
if x>=0 then
begin
y:=5*sqr(x)*sqr(x)*x-sin(x);
writeln(y);
end;
end.
For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так
Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
<span>writeln('Ввести массив из ',n,' целых чисел');
</span>for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i],' ',a[j],' ',a[k],',a[l] );
end.