program antonov;
var a,b,c,d,e,f,g,z : real;
begin
writeln ('Сколько денег мама дала Пете?');
begin
 repeat
  if a >10000000000 then
   writeln ('Неверное значение');
   readln (a);
 until a < 10000000000;
end;
writeln ('Сколько Пете надо купить шариков?');
begin
 repeat
  if b >10000000000 then
   writeln ('Неверное значение');
   readln (b);
 until b < 10000000000;
end;
writeln ('Сколько ирисок влезает в карман Пети?');
begin
 repeat
  if c >10000000000 then
   writeln ('Неверное значение');
   readln (c);
 until c < 10000000000;
end;
writeln ('Сколько стоит один шар?');
begin
 repeat
  if d >10000000000 then
   writeln ('Неверное значение');
   readln (d);
 until d < 10000000000;
end;
writeln ('Сколько стоит одна ириска?');
begin
 repeat
   if e >10000000000 then
    writeln ('Неверное значение');
    readln (e);
 until e < 10000000000;
end;

begin
 f:=d*b;
 if f > a then
  writeln ('Неверное значение');
 exit;
end;
begin
 g:= a-f;
 if g < e then
  writeln ('Увы, на ириску не хватило');
 exit;
end;
z:= g/e;
begin

if z > c then
z:=c*e;

end;



writeln ('sorry for what?');
writeln (a, ' ', b, ' ', c, ' ', d, ' ', e);
end.