Программирование ветвлений на Паскале

1) Полное ветвление на Паскале программ программируется с помощью командыIf <логическое выражение> then <оператор1> else <оператор2>.

   Неполное ветвление программируется с помощью команды If <логическое выражение> then <оператор>.

2) Составным оператором называется конструкция такого вида:

        begin<последовательность операторов> end.

Домашняя работа

№1.

Program One;
Var a,b,c, F:integer;
begin
writeln('Vvedite znacheniya storon');

readln(a,b,c);
If (a<b+c)and(b<a+c)and(c<a+b) then F=1 else F=0;
Writeln(F);

readln;
end.

№6.

Program Two;

Var a,b,c:real; d, F:byte;

Begin

Writeln ('Vvedite 3 chisla');

Readln (a,b,c);

d:=0

If a<0 then F:=d+1;

If b<0 then F:=d+1;

If c<0 then F:=d+1;

Writeln (F);

Readln;

end.