Склавиатуры вводится трехзначное число. найти произведение цифр числа; разделить 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.