Простая задача о подсчете чисел

[AlexP777]

Здравствуйте,

Есть задача: Дети делали бумажных птиц, всего они сделали S, причем известно, что Петр и Сергей сделали одинаковое кол-во, а Катерина - в два раза больше чем Петр и Сергей вместе. Сколько Бумажных птиц изготовил каждый ребенок?

Написал:

program number_thri;
var petro, sergey, katerina, vsego, kozhen : integer;
begin
write('Vvedit skilki vsego bulo zrobleno lelek');
readln(vsego);
katerina:=vsego/2;
kozhen:=katerina/2;
writeln('Katerina vigotovila', katerina,'lelek, a Petro i Sergey vigotovili po', kozhen,'paperovih lelek');
end.

С математической точки зрения, проверил на листочке(взял за общую сумму 8, тогда 8/2=4 - это сделал Катерина, затем 4/2=2 - сделал каждый из пацанов)
При запуске паскаль орет на ";" в блоке:

katerina:=vsego/2;
kozhen:=katerina/2;

[AlexP777]

все, решил сам проблему)))