Pascal написать программу, для подсчета площади и периметра прямоугольника, если заданы стороны прямоугольника ( сделайте готовое, я не могу понять что как куда вставлять)

var

  a, b, s, p: real;

begin

  writeln('введите длину прямоугольника: ');

  read(a);

  writeln('введите ширину прямоугольника: ');

  read(b);

  s : = a * b;

  p : = 2 * (a + b);

  writeln('площадь прямоугольника = ', p, #10, 'периметр прямоугольника = ', s);

end.

1)

#include

using namespace std;

int main()

{

    setlocale(lc_all,"rus");

    const int t=2;

    const int v1=60;

    const int v2=15;

    int s, s1, s2;

    s1=v1*t;

    s2=v2*t;

    s=s1+s2;

    cout< < "они были на одинаковом расстоянии, равном "<

    cout< < "расстояние от города до поселка = "<

    system("pause");

    return 0;

}

2)

#include

using namespace std;

int main()

{

    setlocale(lc_all,"rus");

    const int t1=2;

    const int t2=4;

    const int zarabotok=900;

    int stavka, fee1, fee2;

    stavka=zarabotok/(t1+t2);

    fee1=stavka*t1;

    fee2=stavka*t2;

    cout < < fee1 < < " рублей заработал первый рабочий"< < endl;

    cout < < fee2 < < " рублей заработал второй рабочий" < < endl;

    system("pause");

    return 0;

}

// pascalabc.net

function dec2bin(n: integer): string;

begin

    for var c: =31 downto 0 do

        result += inttostr((n shr c) and 1);

end;

function count(b: string; c: char): integer;

begin

    for var i: =1 to length(b) do

        if b[i] = c then

            result += 1;

end;

begin

    var n: =32;

    var k: =3;

    var sum: =0;

    for var i: =1 to n do

        if count(dec2bin(i), '1') = k then

        begin

            sum += 1;

        end;

    writeln(sum);

end.