Кто знает Паскаль???помогите 20 балов даю . . Написать(program; var; begin; if; then;...

Question

Кто знает Паскаль???помогите 20 балов даю
.
.
Написать(program; var; begin; if; then; else; end; )
.
.
Оформить:
1) Компьютер спрашивает: «сколько будет 2+2»
2) Пользователь отвечает
3) Если ответ верный, то компьютер говорит: «Молодец»
4) Иначе компьютер говорит: «Иди, учись»

Answer 1

Program z1;
uses crt;

var a:integer;
begin
writeln('сколько будет 2+2');readln(a);
if a:=4 do write ('молодец')
else ('иди учись')
end.