Напечатать числа следущим образом 20 11.1 19 11.2 ... 10 11.11

Question

Напечатать числа следущим образом
20 11.1
19 11.2
...
10 11.11

Answer 1

Var
  i:integer;
begin
  for i:=1 to 11 do Writeln(21-i,' 11.',i)
end.

Результат
20 11.1
19 11.2
18 11.3
17 11.4
16 11.5
15 11.6
14 11.7
13 11.8
12 11.9
11 11.10
10 11.11