Помогите задание по Delphi 7

Question

Помогите задание по Delphi 7

---

Comments

Тебе с интерфейсом или консольное?

---

С интерфейсом если не трудно)

---

тогда вывод "Молодец" будет в текстовую область

---

ничего)

---

Я все же думаю, там консольное приложение

---

Возможно

---

Напиши тогда через консоль

Answer 1

Не могу прикрепить файл, вот код

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 n,i:integer;
begin
  i:=0;
  Writeln('Parol');
  repeat
      read (n);
      i:=i+1;
    until (i=5) or (n=111);
    if i=5 then
    exit
    else if n=111 then begin
    Write('Molodec');
    end;
      Readln;
      Readln;
 end.

Comments

спасибо)!

---

а можешь еще почочь

---

помочь

---

https://znanija.com/task/23778795