Паскаль. В тексте в последнем предложении после слова «мама» вставить «и папа».

USES Crt;
VAR
A : STRING [255]; I: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите текст'); ReadLn(A);
I:=4;
While (I<=Length(A)) DO Begin
IF A[I]='мама' THEN Begin Insert ('и папа ',A,I); I:=I+1; End;
I:=I+6;
End;
WriteLn('Измененный текст:'); WriteLn(A);
END.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.