uses crt;
var r,k,r1,k1,how:real;
begin;
clrscr;
writeln('Введите стоимость диска(руб.,коп.) через Enter');
readln(r);
readln(k);
writeln('Введите размер располагаемой суммы(руб.,коп.) через Enter');
readln(r1);
readln(k1);
IF r * 100 + k < r1 * 100 + k1 THEN writeln('Да, вам хватит денег на покупку');
IF r * 100 + k > r1 * 100 + k1 THEN
begin;
how:= (r * 100 + k) - (r1 * 100 + k1);
r:= INT(how / 100);
k:= how - INT(how / 100) * 100;
writeln('Нет, вам не хватит денег на покупку ',r:7:0,' руб. ', k:7:0, ' коп.');
END;
end.