40 ! у=а*х решите как это выглядить в турбо паскале !

Решение такое:
var y,a,x:word;
begin
  writeln('Введите а, х');
  readln(a,x);
  y:=a*x;
  writeln('y = ', y);
end.