Музыкальный диск стоит x рублей n копеек. У вас а рублей

Program pr; uses crt; Var x,a: real; BeginWriteln ('стоимость диска'); readln (x); Writeln ('сколько у вас руб.'); readln (a); if a>=x then Writeln ('хватит') else Writeln ('не хватит'); readln; end.