"угадай число" на Pascal N IDE

[Lektorfuja]

var n,c : Real:
begin
c:= Random(3);
ReadLn(n);
if n=c then
WriteLn('ugadal');
WriteLn(n);
end.

Что ещё можно добавить?

[Аватар]

добавь else WriteLn('олух, не угадал')