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.