Ну держи код!!!Задачка очень простая

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.