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

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.

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

 

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.