x = 150; n:=x div 10; x:=x-n; if (x mod 5 = 0) and ( n mod 5 0 ) then writeln (x) else writeln (n)

ответ по ссылке: https://omgtu.ru/general_information/faculties/radio_engineering_department/department_of_design_and_production_of_radio_quot/uchebno_metodicheskaya_rabota/An_algorithmic_and_programming_in_Pascal.pdf