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

Program chisla;
uses crt;
var a,b : integer;
begin
for a:=1 to 50 do
begin
b:=4*a+1;
writeln(b);
end;
end.