Ввести строку s длиной до 50 символов, заменить в нем все буквы "р" на буквосочетание "pu" ввести рядок s завдовжки до 50 символів, замінити в ньому всі літери “р” на буквосполучення “pu”.

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

1.                                                                          

program raf105;

var

 b,c,let: integer;

 a: real;

begin

write('Запас рыбы в пруду: ');

readln(a);

write('Ежегодный план отлова: ');

readln(b);

write('Наименьший запас: ');

readln(c);

while a >= c do

begin

 let+= 1;

 a:= a+a/100*15;

 a-= b;

end;

writeln('Заданный план можно выдержать в течении ',let,' лет.');

end.

2.                                                                          

program raf105;

var a,sum,counter: integer;

begin

a:=1;

while sum<>324 do

begin

 a+= 4;

 sum+= a;

 counter+= 1;

end;

writeln('Число слагаемых: ',counter);

end.

3.                                                                          

program raf105;

var a,counter: integer;

begin

write('Введите число: ');

readln(a);

while a<>0 do

begin

 counter+= 1;

 a:= a div 10

end;

writeln('Количество цифр: ',counter);

end.

4.                                                                          

program raf105;

var

 a: real;

 let:integer;

begin

a:= 10000;

while a<20000 do

begin

 let+=1;

 a+= a/100*5;

end;

writeln('Сумма увеличится в 2 раза через ',let,' лет');

end.

Язык PascalABC