Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 53? var n, s, d: integer;
begin
readln(d);
n := 23;
s := 18;
while s <= 1977 do begin
s := s + d;
n := n + 6
end;
write(n)
end.

желательно: Задания: 1)построить таблицу и по ней найти значение выводимой на экран переменной (без таблицы, только ответ принимать не буду). 2) Построить блок-схему для данного фрагмента программы. :)