за сделать задачу.

Задание: Найти сумму четных чисел до введенного пользователем n

Раньше такого умного друга

У школьников не было в нашей округе.

Теперь в каждом доме, на каждом столе,

Стоит он тебе да и мне.

Рисует, считает, хоть что вычисляет,

А если захочешь, в игру поиграет.

Он — ЭВМ. Это имя одно.

А как по-другому зовем мы его? (Компьютер)    

Бывает струйный, лазерный бывает.

Его всегда печатать заставляют.

Он на бумагу распечатает что нужно.

Печатник этот всем нам очень нужен. (Принтер)

На компьютерном столе

она мне.

Колесиком и кнопкой

Я управляю ловко. (Мышка)

Компьютер будет молчалив,

Коль нет с ним рядом дев таких.

А если есть, он говорит,

Поет, играет и пищит.

Стоят над ним в сторонке

Близняшки две —... (колонки)

Клавиатуру изучаю,

Где буквы, я запоминаю.

Я неуверенно и робко

Текст набирал и жал на... (кнопки)

Много кнопок, цифры, буквы,

«Enter», «Shift», «F2», «F5»,

На английском и на русском

Можно, дети, с ней писать.

Пальцами стучу по ней.

Кто она? Скажи скорей! (Клавиатура)

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

По всем вопросам пиши в ЛС