Блок-схему не надо,только 1.дано двузначное число. найти сумму и произведение его цифр. 2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа. 3.дано трехзначное число. используя одну операцию деления нацело,вывести первую цифру данного числа(сотни). завтра нужно ,!

Это в паскале?
1. Var a,x,y,s,p:integer;
begin
writeln ('введи двузначное число');
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;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.

3.Var a,x:integer;
begin
writeln ('введи трехзначное число');
readln (a);
x:=a div 100;
writeln (x);
end.