Напишите программу условного оператора в Паскале

Var
  s,s1:string;
  i,n,n1,k,p:integer;
begin
  Write('Введите строку: '); Readln(s); n:=Length(s);
  Write('Введите подстроку: '); Readln(s1); n1:=Length(s1);
  k:=0; i:=1;
  while i<=n-n1+1 do begin
    p:=pos(s1,s,i);
    if p>0 then begin Inc(k); i:=p+n1 end
    else i:=n; { для выхода }
    end;
  Writeln(s1,' встречается в ',s,' ',k,' раз(а)')
end.
 
Пример
Введите строку: Наша Таня громко плачет: уронила в речку мячик
Введите подстроку: ро
ро встречается в Наша Таня громко плачет: уронила в речку мячик 2 раз(а)

Площадь параллелограмма:

program chet;

var

sq, a , b : integer;

begin

writeln('Введите стороны параллелограмма ');

readln(a,b);

sq := a * b;

writeln('Площадь параллелограмма равна ', sq);

end.

Площадь трапеции:

program chet;

var

sq,h, a , b : real;

begin

writeln('Введите длину оснований ');

readln(a,b);

writeln('Введите высоту трапеции');

read(h);

sq := (a+b)/2 * h;

writeln('Площадь трапеции равна ', sq);

end.

Площадь круга:

program chet;

const

PI = 3.14;

var

sq,r : real;

begin

writeln('Введите радиус круга');

readln(r);

sq := PI * sqr(r);

writeln('Площадь круга равна ', sq);

end.

И площадь ромба:

program chetdsa;

var  

sq,d,g : real;

begin

writeln('Введите чему равны диагонали ромба');

readln(d,g);

sq := (d*g)/ 2;

writeln('Площадь ромба равна ', sq);

end.