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

Теперь тебе Алёна даст) Кхе, Кхе... Баллы за лучший ответ

1.var s:string; m1,m2,m3:integer;beginwriteln('- Привет! Я компьютер, а как тебя зовут?');write('- '); readln(s);writeln('- ',s,', введи свои оценки по 3 предметам');write('- '); readln(m1,m2,m3);writeln('- ',s,', твой средний балл ', (m1+m2+m3)/3);end.Пример:- Привет! Я компьютер, а как тебя зовут?- Алёна- Алёна, введи свои оценки по 3 предметам- 4 4 4- Алёна, твой средний балл 42.var a,b:integer;beginwrite('a = '); readln(a);b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);writeln('b = ',b);end.Пример:a = 123b = 132

//1)Var s:string; o1,o2,o3:integer;begin writeln('Привет! Я компьютер, а как тебя зовут?');readln(s); writeln(s,', введи свои оценки по 3 предметам');readln(o1,o2,o3); write(s,', твой средний балл ',(o1+o2+o3)/3);end.//2)Var s:string; c:char;begin readln(s); c:=s[3]; s[3]:=s[2]; s[2]:=c; writeln(s);end.