Var i, n:integer ;
Begin
Write ('n=') ;read (n) ;
For i:=n downto 1 do
Write (i, ' ') ;
End.
Ответ:
таня купила блокнот
Объяснение:
уууууу
блок-схемой называется