Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.
Дело в том, что в русском языке нет звука [я]. Букву я мы воспроизводим с помощью звуков [й],[а]. Поэтому само задание неверное.
Примерно так рисуются круги Эйлера
Тип данных Длина Диапазон значений
байт
ЦЕЛЫЕ ТИПЫ
integer 2 -32768...32767
byte 1 0...255
word 2 0...65535
shortint 1 -128...127
longint 4 -2147483648...2147483647
ВЕЩЕСТВЕННЫЕ ТИПЫ
real 6 2,9 * 10^-39 ... 1,7 * 10^38
single 4 1,5*10^-45 ... 3,4*10^38
double 8 5*10^-324 ... 1,7*10^308
extended 10 3,4*10^-4932 ... 1,1*10^4932
ЛОГИЧЕСКИЙ ТИП
boolean 1 true, false
СИМВОЛЬНЫЙ ТИП
char 1 все символы из таблицы ASCII