Question

Найди ошибку в программе
Program a1;
Var a: integer;
b: real;
begin
a:=100;
b:=2,5;
writeln (a,b);
a:=a+b/3.5;
writeln (a);
end.