решите плиз задачу , abc Pasca

 var 
x,y,a,b,c : integer;
  begin 
 writeln ('Яблоки кол-во цена');
  readln (x,y); 
 writeln ('Груши кол-во цена'); 
  readln (a,b);
  writeln ('Сумма дене');
  readln (c); 
   x := x * y;
  a := a * b;
  if (x+a) <= c then 
  writeln ('Хватит, останется:',c-(x+a)) 
   else     writeln ('Не хватит:',(x+a)-c);
   end.