Помогите пожалуйста, срочно надо, два задания.
VAR T,N: INTEGER; BEGIN N:= 0; T:=20; REPEAT T:=T+10; N:=N + 1; UNTIL T>100; WRITELN (‘ЧЕРЕЗ ‘, N, ‘МИНУТ T=’, T); READLN END.
спасибо огромное!