Программа паскаль , в чем проблема !?
Var a,b:integer;
c:real;
Begin
ReadLn(a,b);
c:= 3;
c:= 5;
c:= 1;
writeln (c:0:2);
end.

бэ и цэ будут равны бесконечности, как мне кажется.

не хватает программных скобок begin end в двух местах