“ест на поиск ошибок в программе

¬ариант 1

Program XXX;

Use CRt;

Var

         N: integer;

Clrscr;

Writeln (С¬ведите числоТ); Read (СkТ);

Repeat

         k:=k+1;

         writeln (k);

Until k<10;

end.

¬ариант 2

Program 1XXX;

Uses CRt;

Var

         i, n: integer;

Begin

Clrscr;

Writeln (С¬ведите числоТ); Read (СnТ);

         For i:=1 downto10 to

         Begin

Writeln(С„ислоС, n;3;3)С;

End;

End.