var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
<span>Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в Кбайтах? </span>
Если я не ошибаюсь "end" здесь вообще не нужно)
Набираешь полный флакон на 5 капель, переливаешь его в 7. Затем снова набираешь на 5 капель и опять сливаешь капли в 7. но на этот раз там уже было 5 капель. значит остается 3 капли в первом флаконе
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.