<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function R(t:real):=t*(50-t*t);
begin
for var t:=1 to 6 do
Writeln(t:1,R(t):5)
end.
110001.011100110011001100110011001100110011001100110011002
что бы команды были гарантированно выполненны по крайней мере один раз нужно использовать цикл с постусловием Repeat
repeat
<em>операторы</em>
until <em>условие</em>