Запишите через запятую наименьшее и наибольшее значение числа 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.