Определите числа, которые принадлежат интервалу 0,7-5,1.

var
 a, b, c, d: integer;
begin
 read(a, b, c, d);
  if a>=0 then
   begin
    write(sqr(a), ' ');
   end;
  if b>=0 then
   begin
    write(sqr(b), ' ');
   end;
  if c>=0 then
   begin
    write(sqr(c), ' ');
   end;
  if d>=0 then
   begin
    write(sqr(d), ' ');
   end;
end.

var a,b,c:real;
   i: integer;
begin
  read(a,b,c);
  if (a>=0.7) and (a<=5.1) then writeln(a,'принадлежит')
  else  writeln(a,'не принадлежит');
  if (b>=0.7) and (b<=5.1) then writeln(b,'принадлежит')
  else  writeln(b,'не принадлежит');
  if (c>=0.7) and (c<=5.1) then writeln(c,'принадлежит')
  else  writeln(c,'не принадлежит');
end.

var a:real;
   i: integer;
begin
for i:=1 to 3 do
 begin
  read(a);
  if (a>=0.7) and (a<=5.1) then writeln(i,'принадлежит')
  else  writeln(i,'не принадлежит');
   end;
end.