Program F131;

{1-10 közötti szám, tesztelés, négyzet.}

Uses crt;


Var
i,k:integer;

Begin

ClrScr;
        Repeat
   Write('Adj egy szamot, megmondom a negyzetet!');
   Readln(i);
 Until (i>1) and (i<10);
 Begin
k:=i*i;
end;
Writeln('A szam negyzete:',k );



Readln;
End.