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