uses crt-
varr,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.