1)Написать диалоговую программу, в результате которой на экране появится диалог: - Привет! Я компьютер, а как тебя зовут? - Алёна - Алёна, введи свои оценки по 3 предметам - 4,4,4 - имя, твой средний балл 4 2Введя с клавиатуры 3-значное число (123), получить и вывести на экран новое число, поменяв местами разряды десятков и единиц.

1.
var s:string; m1,m2,m3:integer;
begin
writeln(- Привет! Я компьютер, а как тебя зовут?);
write(- ); readln(s);
writeln(- ,s,, введи свои оценки по 3 предметам);
write(- ); readln(m1,m2,m3);
writeln(- ,s,, твой средний балл , (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний балл 4

2.
var a,b:integer;
begin
write(a = ); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln(b = ,b);
end.

Пример:
a = 123
b = 132