ПОМОГИТЕ!!!! блок-схему не надо,только программку!!
1.дано двузначное число. найти сумму и произведение его ЦИФР.
2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа.
3.дано трехзначное число. используя одну операцию деления нацело,вывести первую цифру данного числа(СОТНИ).
Завтра нужно сдать!!!! ПОЖАЛУЙСТА,плиииизззз!!! 

это в паскале?1. Var a,x,y,s,p:integer;beginwriteln ('введи двузначное число');readln (a);x:=a div 10 mod 10;y:=a mod 10;p:=x*y;s:=x+y;writeln (сумма цифр равна'',s);writeln (произведение цифр равна'',p);end.2.Var a,x,y:integer;beginwriteln ('введи двузначное число');readln (a);x:=a div 10 mod 10;y:=a mod 10;a:=y*10+x;writeln (a);end.3.Var a,x:integer;beginwriteln ('введи трехзначное число');readln (a);x:=a div 100;writeln (x);end.