Question

ИНФОРМАТИКА. ЦИКЛЫ.
Выведите все числа от 1 до n в таблице /n/n*n/0,5n/ (цикл For do)

Answer 1

var n: integer;
begin
    read(n);
    for var i := 1 to n do
        writeln(i + ' ' + i*i + ' ' + 0.5*i);
end.