На паскале нужно решить задачи

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

2. Задано трехзначное число. Составьте программу, с помощью которой определите, равняются ли в нем крайние числа.

var

a, e, d, s, p: integer;

begin

p:=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 ('первая цифра числа равна последней')

else

writeln ('первая цифра числа не равна последней') ;

end.