ПОМОГИТЕ! Блок-схему не надо, только программку! 1. Дано двузначное число. Найти…

Это в паскале? 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.