Question

Напишите полную программу этого алгоритма.

Answer 1

Program Project1;

var a, b, c:integer;

begin
  a:=5;

  if a<5 then c:=1 else
    if a>5 then c:=2 else
      c:=3;

  writeln(c); //3
  readln;
end.