Составить программу по информатике pascal abc. составьте пример для первоклассника если он решит его правильно то молодец а если нет то плохо.

Program abc;
var a:integer;
BEGIN
 writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.