Вот тебе правильный код:

program test;

var A,c:integer;

begin

A:=4;

c:= (какое либо значение);

Writeln('Значение c=', c);

Write('Молодец,');

Readln;

end.