print(*(i for i in range(int(input()) + 1) if str(i * i).endswith(str(i))))
Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
////////
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.
коричневое < синее < зеленое < красное < желтое
пирамида сверху вниз будет выглядеть так:
коричнивое
синее
зеленое
красное
желтое
Program z1;
var a,b,c,P:real;
begin
Writeln('Введите стороны a и b: ');
Write('a = '); read(a);
Write('b = '); read(b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
Writeln('Гипотенуза равна: ',c);
Writeln('Периметр треугольника равен: ',P);
end.