F61

Program F61;

{Sor bekeres, majd az adott sorba @ jel.}

Uses crt;
Var
s:byte;
i:byte;
Begin

ClrScr;
Writeln('Add meg, melyik sort irjam tele?');
Readln(s);

ClrScr;
For i:=1 to 20 do
GotoXY(i,s);
Write('@');
read;

End.