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

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

Задать свой вопрос
1 ответ
Program z1;
uses crt;

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


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт