Проблема в том, что переменные a и b объявлены как integer, но при вводе значений с клавиатуры используется функция ReadLn, которая предназначена для считывания чисел типа real.

Необходимо изменить объявление переменных a и b на real, либо использовать функцию ReadLn для считывания целых чисел.

Также, значения переменной с перезаписываются несколько раз, поэтому при выводе будет показано только последнее значение.

Исправленный код:

Var a,b:real;
c:real;
Begin
ReadLn(a,b);
c:= 3;
c:= 5;
c:= 1;
writeln (c:0:2);
end.