, в информатике не шарю •надо узнать что получится в результате программы при вводе числа

В условии дана рекурсивная функция.
При выполнении, если число равно единице, то выводится 1, иначе выводится сумма 3 и той же функции с меньшим на единицу значением.

Рекурсивно будет вызвана функция 6 раз и 1 раз в конце, следовательно в конце будет выведено 6*3+1 = 19.

ответ: 19

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.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.