№17а. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.
№37. Даны три числа. Составить программу нахождения суммы двух наибольших из этих трех чисел.
Помогите пожалуйста паскаль!!!!!!!!!!!!!!!

var a: integer;beginwrite('Введите трехзначное число: ');readln(a);writeln('Результат: ',(a mod 100)*10+(a div 100));end.var a,b,c:integer;beginwriteln('Введите a,b,c');write('a=');readln(a);write('b=');readln(b);write('c=');readln(c);if a+b>b+c thenbeginif a+b>a+c thenwrite('a+b=',a+b)else write('c+a=',c+a);endelse if b+c>=a+b thenbeginif b+c>c+a thenwrite('b+c=',b+c)else write('c+a=',c+a);endelsewrite('c+b=',c+b);end.