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