Здраствуйте, пожалуйста, помогите по информатике составить програму по примеру:

+ 0 -

1501vs

16 марта 2017 г., 9:48:56 (7 лет назад)

вот что-то написала, работает вроде правильно, но программа несколько раз пишет результат, мучалась, не знаю, как это исправить, но ответ верный выдает
uses crt;
var x1,x2,x3,x,n,s:integer;
begin
readln(x);
readln(x1);
readln(x2);
readln(x3);
readln(n);
s:=0;
if (x*n<x1 div 2)then s:=s+n else writeln('0');
if (x*n*2<x2 div 2) and (x*n<x1 div 2) then s:=s+2*n else writeln(s);
if (x*4*n<x3 div 2) and (x*n*2<x2 div 2) then s:=s+4*n else writeln(s);
writeln(s);
end.

+ 0 -

Nailya1997

16 марта 2017 г., 12:07:20 (7 лет назад)

после третьего толстяка есть опять первый? или на третьем все заканчивается?

+ 0 -

евгенийпатрик

16 марта 2017 г., 14:31:35 (7 лет назад)

Комментарий удален