Ответ:

program pers;

var a,b,finish:integer;

begin

 write('введите а:');

 readln(a);

 write('введите b:');

 readln(b);

 finish := (a-b) div 4;

 write(finish);

end.

Объяснение: