Определите значение переменной S после выполнения операторов: i:=0; S:=0

нц пока i<3 i:=i+1;

S:=S+i*i

кц

Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.

Сестра мужа точно инженер
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены. 
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-) 
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.



ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.