Напишите программу на pascal​

var k,p: integer;

begin

readln(k,p);

if k*80<p*70 then

write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')

else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');

end.