Вводится трехзначное число,найти произведение первой и заключительной числа числа.Сделать на Паскале

Быстрее всего, вы имеете в виду творение цифр трехзначного числа.
Тогда вот программка:
Program prim;
Var x, a, b,c,p: integer;
Begin
writeln(ВВедите трехзначное число);
readln(x);
a:=x div 100; 1-ая цифра
b:=x mod 100 div 10; вторая цифра
c:=x mod 10; 3-я цифра