На паскале нужно решить задачи
1.Задано трехзначное число. Составьте программу, с помощью которой определите произведение кубов цифр этого числа.
2.Задано трехзначное число. Составьте программу, с помощью которой определите , равняются ли в нем крайние числа.

vara,e,d,s,p: integer;beginp:=1;writeln ('введи трехзначное число');read (a);e:= (a mod 10);s:=(a div 100);d:=s*100-e; p:=s*s*s*d*d*d*e*e*e; writeln ('произведение кубов цифр числа равно',p);if e=s then writeln ('первая цифра числа равна последней')  elsewriteln ('первая цифра числа не равна последней');end.