uses crt;
var x:integer;
begin
writeln('Введи сколько времени сегодня играл Пудж'); readln(x);
if x>8 then writeln('Пудж здоров')
else writeln('Болен');
end.
<em>Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.</em>
var a,b,c,p:integer;
readln(a,p);
b:=(p-a)/2;
c:=b;
writeln('b=',b,' c=',c);
readln();