2. Составьте программу, определяющую…

2.Program Pr1; uses crt; var stroka: string; i,a,b: integer; Beginclrscr; readln (stroka); b: =1; if stroka[b]<>' then a: =1else while stroka[b]=' do b: =b+1; for i: =1 to length (stroka) do begin if (stroka[i]=') and (stroka[i+1]<>') then a: =a+1; if a=3 then begin writeln (stroka[i+1]); break; end; end; end. Ой… . Тебе в QBasic… извиняй