Question

Помогите пожалуйста информатика ПАСКАЛЬ !!!!!

Answer 1

1.                                                      

program raf105;

var m,r,h,p,a,sari:integer;

begin

write('Введите баллы по математике: ');

readln(m);

write('Введите баллы по русскому языку: ');

readln(r);

write('Введите баллы по химии: ');

readln(h);

write('Введите баллы по физике: ');

readln(p);

write('Введите баллы по английскому языку: ');

readln(a);

sari:= round((m+r+h+p+a)/5);

writeln('Средний балл: ',sari);

end.

2.                                                      

program raf105;

var abcd,b:integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

b:= (abcd div 100) mod 10;

writeln('Вторая цифра числа слева: ', b);

end.

Язык PascalABC