ИНФОРМАТИКА. ЦИКЛЫ.
Выведите все числа от 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.