Написать програмку в паскале. -ввести два трехзначных числа. если последняя цифра первого числа равна первой цифре второго числа, то утроить каждое число, иначе – найти частное чисел.

Var numb1,numb2:integer;
begin
readln(numb1,numb2);
if (numb1 mod 10 = numb2 div 100) then
 writeln(numb1*3,' ',numb2*3)
else
writeln(numb1/numb2);
end.