Помогите составить алгоритм.Пожалуйста

[mamadi13]

Program Timur;
LABEL 1.2.3.4 ;
VAR a,d : String;
b,c : real;
Begin
1: WriteLn ('введите фамилию игрока');
Read LN (a);
WriteLN('введите рост игрока');
ReadLN(a);
if b>=180 then goto 1;
if b<180 then goto 2;
3:WriteLN(a);
4:WriteLN(' начать с начала<1-да,1-нет>');
ReadLN(c);
If c=1 then goto 1;
if c=2 then goto 2;
2:WriteLN ('конец');
ReadLN(d);
END.

[evg_m]

весь алгоритм можно сформулировать одной фразой работать вечно или не работать вообще

проверяем НИГДЕ и никак не заданную переменную и либо снова ее проверяем (goto 1) либо заканчиваем работу(goto 2).

[mamadi13]

А что учителю то предъявить, который пишет эти программы. Это ведь домашнее задание.

[Dozent]

что это за ужас?)))

Program Timur;
LABEL 1.2.3.4 ;
VAR a,d : String;
b,c : real;
Begin
1: WriteLn ('введите фамилию игрока');
ReadLn(a);
WriteLn('введите рост игрока');
ReadLn(b);
if b>=180 then goto 1;//Если рост выше или равен 180 тогда переходим к "1"
if b<180 then goto 2;// Если рост меньше 180 тогда переходим к "2"
//3:WriteLN(a); //ЗАчем этот вывод? непонятно...
4:WriteLn(' начать с начала да-1,нет-2');//зачем указатель "4:"?
ReadLN(c);
If c=1 then goto 1;//если введено 1 то к "1"
if c=2 then goto 2;//если введено 2 то к "2"
2:WriteLN ('конец');
ReadLN(d);// Если это сделано для того чтобы задержать выполнение программы и она висела для просмотра в консоле то помойму достаточно ReadLn;
END.

Примерно так...

[Smitt&Wesson]

//зачем указатель "4:"?

Это не указатель, а метка.

[evg_m]

Это ведь домашнее задание.

А может это задание с подвохом на умение анализировать и понимать код В ЦЕЛОМ, а не просто описать что делает каждая команда в отдельности (т.е. составлять алгоритм).

+ вероятно в коде есть описка.

проверяем НИГДЕ и никак не заданную переменную

а надо было ReadLn(b);
и тогда.

1.приглашаем ввести фамилию рост
2.если введенный рост >=180 то повторить п.1
3. если введенный рост<180 то вывести конец работы и закончить.