С клавиатуры вводится трехзначное число. Найти произведение цифр числа; разделить 1 цифру числа на 3 цифру и вывести результат( в паскале)

Программа на паскале внизу

это на первую program chislo;  var a,b,c,k,x: integer; Begin  Writeln('Введите трехзначное число:');  readln(x);  a:=x div 100;   b:=x mod 100 div 10;  c:=x mod 10;  k:=a*b*c;  writeln('произведение чисел = ',k);  readln; End. Вторая Задача program chislo;  var a,c,x: integer;  k:real; Begin  Writeln('Введите трехзначное число:');  readln(x);  a:=x div 100;  c:=x mod 10;  k:=a/c;  writeln('деление чисел = ',k);  readln; End.