Проверьте программу пжлста!

var
S:real;
a,b,c:longint;
begin
S:=0;
a:=3;
b:=1;
c:=2;
while (a<=30) do
begin
S:=S+(a/b+c^2)
a:=a+3
b:=1
c:=c+1
end;
writeln(S);
end.

 

Составьте пожалуйста диалог с переводом со словами subject(what subject.gim mane of them.how often)timetable.classmates,teacher.skilled.activities.hobbies.problems.getting to school

Помогите пожалуйста написать сочинение на тему мой незабываемый портрет

 помогите пожалуйста сделать Вывод о динозаврах)

Бассейн вмещает 14440л воды. 1/4 часть воды вливается через первую трубу, 2\5- через вторую ,а остальное через третью. Сколько литров воды вливается в бассейн через третью трубу?