составьте программу рисования узора с использованием вс алгоритма.
«НЦ-РАЗ-КЦ"

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

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

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

саша =в  петя=к  ваня=п  коля=с

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

varr,h,s: real; beginread(r); h: =2*pi*r; s: =2*pi*sqr(r); writeln('площадь круга: ', s: 5: 2); writeln('периметр окружности: ', h: 5: 2); end.