решить как переделать программу на языке паскаль (ошибка - там где фиолетовым выделено), Вот сама программа program my_first_work; uses crt; var a:Integer; b:Integer; c:Integer; i:Integer; q: Real; Begin repeat WriteLn ( 'Введите первое число' ); read (a) ;
WriteLn (' Выберите действие +=1;-=2;*=3;/=4; √=5' ) ; read (b) ; Begin If b = 5 then //Repeat q:= ( sqrt(a) ) ; End //WriteLn ( 'Повторить? (1)' ) ; //read (i) ; //Until i = 1; Else Begin WriteLn ('Введите второе число') ; read ( c ); If b = 1 then q:= ( a + c ) ; If b = 2 then q:= ( a - c ) ; If b = 3 then q:= ( a * c ) ; If b = 4 then q:= ( a div c ); End Begin WriteLn ( q ) ; WriteLn ( 'Повторить? (1)' ); readln (i) ; ClrScr; until i = '1'; readln; end.