Пользователь вводит 2 числа второе число умножить на 5, первое на 3 (через какую-то программу поскаль)

var a, b, c, d:integer;

begin

write('Введите 1 число:');

readln(a);

write('Введите 2 число:');

read(b);

c:=a*3;

d:=b*5;

writeln('ответ: после вычислений 1 число равно ',c,' ,а 2 число равно ',d);

end.