var
x,y:real;
begin
readln(x,y);
if (y <= 7) and (y<>x*x) and (sqrt(sqr(x)+sqr(y))<=7) then
writeln("принадлежит")
else
writeln("не принадлежит");
readln;
end.
Если не ошибаюсь. А могу.
Var n,m:integer;
begin
write('n = ');
readln(n);
m:=0;
while n>0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
writeln('m = ',m);
end.
Пример:
<span>n = 1234
m = 4321</span>
var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
Ну возможно почтовые сервисы, социальные сети, может форумы какие-нибудь.