Var n, s, d: integer; begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Нужно переделать программу в

1.var a,b:integer;
begin
writeln('введите числа (0 признак окончания ввода)');
readln(a);
b:=1;
while (a<>0) do begin
readln(a);
if (a mod 2 = 0) and (a<>0) then b:=b*a;
end;writeln('произведение чётных  чисел последовательности ',b);
end.
2.var a,b:integer;
begin
b:=0;
a:=1;
while (a<=10000) do begin
if (a mod 10 = 0) then b:=b+1;
a:=a+1;
end;
writeln('количество круглых чисел ',b);
end.
3.var a,b:integer;
begin
writeln('введите числа (1 признак окончания ввода)');
readln(a);
b:=0;
while (a<>1) do begin
readln(a);
if (a mod 7 = 0) then b:=b+1;
end;
writeln('цифра 7 встречается ',b,' раз');
end.
4.var a,b:integer;begin
writeln('введите числа (0 признак окончания ввода)');
b:=0;
a:=1;
while (a<>0) do begin
readln(a);
if (a<>0) then b:=a*a+b;
end;writeln('сумма квадратов ',b);
end.

Одним из ключевых понятий информатики является информация. Теория информации, как раздел математики, сформировалась во второй половине XX в. Толчок к зарождению дали попытки нахождения оптимальных решений практических технических задач в области кодирования и передачи информации. Пионерами теории информации по праву считают Клода Шеннона (США), А.Н. Колмогорова (СССР), Р. Хартли (США).Клод Шеннон, автор теории информации, предложил информацией считать снятую неопределённость наших знаний о чем-то.Шеннон впервые ввёл такую трактовку в теории связи. Позднее она нашла применение во всех областях науки, где играет роль передача информации в самом широком смысле этого слова, в частности, в математической теории информации, большую роль в становлении которой сыграл А.Н. Колмогоров.Существует несколько подходов к определению понятия "информация".