1. Даны два ненулевых числа а и b. Напишите программу для нахождения суммы, разности, произведения и частного.
2. Напишите программу для нахождение периметра и площади прямоугольного треугольника, если даны длины его катетов а и b.
3. Ввести трехзначное число a. Напишите программу которая поменяет крайние цифры числа местами.

Спасибо

1) Program n1;var a,b: real;beginreadln(a,b);writeln('разность: ',a-b);writeln('произведение: ',a*b);writeln('сумма: ',a+b);writeln('частное: ',a/b); end.2)Program n2;var a,b,c: real;beginreadln(a,b);c:=sqrt(a*a+b*b);writeln('площадь: ',0.5*a*b);writeln('периметр: ',a+b+c);end.3)Program n3;var d1,d2,d3,a: integer;beginwrite('введите число: ');readln(a);d1:= a div 100;d2:=a div 10 mod 10;d3:=a mod 10;writeln(d3,d2,d1);end.