Информатика. циклы. выведите все числа от 1 до n в таблице /n/n*n/0,5n/ (цикл for do)

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