Напечатать числа следующим образом В ПАСКАЛЬ : 10 10.4 11 11.4 ... 25 25.4

Question

Напечатать числа следующим образом В ПАСКАЛЬ :
10 10.4
11 11.4
...
25 25.4

Answer 1

Var i:byte;
Begin 
for i:=10 to 25 do 
begin   
write(i,' ');   
writeln(i,'.4'); 
end;
End.