даны два неравных числа C и D число D заменить частными этих чисел, если C больше числа D на 5

Ответы:

var c,d,a:real,

begin

read(c,d),

if c-d=5 then do begin

a:=c/d, d:=d/с, write (a,d), 

end, 

end.