Question

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

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.

Answer 2

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

Answer 3

помочь

Answer 4

https://znanija.com/task/23778795