Задача в Паскаль

[DRIVE37]

Здравствуйте, помогите пожалуйста кто разбирается в Паскаль, задача такова:

"Задача."

Создайте программу на языке паскаль используя цикл While.

 

[Rey]

как то так должно быть xD

var
  t: integer;

begin
  t := 0; //0 тарелок изначально
  while t <= 58 do  // выполнять пока тарелок не будет 58
  begin
    t := t + 2; //помыли 2 тарелки и прибавили
  end;
  writeln('4istih tarelok ', t); // сообщаем что помыто 60 тарелок
  readln
end.

как то так должно быть xD

var
  t: integer;

begin
  t := 0; //0 тарелок изначально
  while t <= 58 do  // выполнять пока тарелок не будет 58
  begin
    t := t + 2; //помыли 2 тарелки и прибавили
  end;
  writeln('4istih tarelok ', t); // сообщаем что помыто 60 тарелок
  readln
end.

Спойлер: Скрин

 

[Mmonster]

delete

 

[DRIVE37]

Rey, спасибо большое!