Составить алгоритм и программу: вывести на экран числа по формуле а: = 4 а+1 (диапазон чисел от 1 до 50);

program zz1;

var i, n:integer; / / задаем переменные целого типа

begin

for i:=1 to 50 do / / организуем цикл, в котором переберем все числа от единицы до пятидесяти

begin

n:=4 * i + 1; / / вычисляем значение по заданной формуле

writeln (' для ', i, ' вычисленное значение = ', n); / / выводим ответ в столбец

end;

end.