Веб проектирование, вставить произвольный текст

var money, price, count: integer;

begin

 writeln('Введите количество денег и стоимость одной газировки');

 readln(money, price);

 count := 0;

 if(money >= price) then begin repeat

   money := money - price;

   inc(count, 1);

 until money < price;  

 writeln('Петя может купить ', count, ' банок газировки');

 end else writeln('Вася не может купить газировку.');

end.

Объяснение:

1) Создаём переменные

money - количество денег у Васи.

price - цена одной газировки.

count - количество банок после покупки.

2) Запрашиваем сумму денег Васи.

3) Проверяем количество денег, если у Васи денег меньше чем цена одной газировки, то говорим пользователю, что Вася не может купить газировку.

4) Через цикл получаем количество банок и выводим ответ.

var a:integer;

m:string;

begin  

repeat

repeat  

writeln('длина и площадь(1), сумма и произведение 5 чисел(2),найти площадь 2-х кругом с радиусом r1 и r2 и вывести большую s(3),2 числа(4),точка(5).');

readln(a);

until a<=5;

case a of

1:begin  

var r,c,s:real;

 writeln('введите R');

 readln(r);

 c:=2*3.14*r;//длина окружности

 s:=3.14*sqr(r);//площадь круга

  writeln('площадь=<',c,'>');

 writeln('S=<',s,'>');

 end;

2:begin

var z1,z2,z3,z4,z5,summ1,summ2:real;

writeln('введите 5 чисел через <enter>');

readln(z1,z2,z3,z4,z5);

summ1:=z1+z2+z3+z4+z5;

summ2:=z1*Z2*Z3*z4*z5;

writeln('сумма=<',summ1,'>');

writeln('произведение=<',summ2,'>');

end;

3:begin

var s,r:real;

writeln('введите R');

readln(r);

s:=3.14*sqr(r);

writeln('S=<',s,'>');

end;

4:begin

var i,u:real;

repeat

writeln('Введите 2 числа через <enter>');

readln(i);

readln(u);

 if (i>u) then

 begin

 i:=i/3;

 u:=u*3;

 end

 else if (u>i)then

 begin

 u:=u/3;

 i:=i*3;

 end

 else until u<>i;

 writeln(i);

 writeln(u);

end;

5:begin

var p,l:real;

writeln('введите а,b через <enter>');

readln(p,l);

 p:=3*p+4;

 if (p=l) then writeln('принадлежат')

 else writeln('не пренадлежат');

end;

end;

writeln('выключит y/n');

readln(m);

until m='y';

end.

Объяснение: