1.Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників і порівняти їх.
Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься один прямокутник у середину
другого. Повідомити отримані результати.
У проекті:
1) складіть обробник події OnClick першої кнопки для обчислення площ прямокутників
і виведення повідомлення про те, у якого прямокутника площа більша;
2) складіть обробник події OnClick другої кнопки, виконання якого залежно від
установлених прапорців приведе до визначення того, чи є відповідний прямокутник
квадратом;
3) складіть обробник події OnClick третьої кнопки, виконання якого приведе до
визначення, чи вміститься перший прямокутник усередину другого або другий прямокутник
усередину першого залежно від вибраного перемикача;
4) виконайте складені процедури і переконайтеся, що результати їхньої роботи
правильні.

если я не ошибся, то звучит так: у меня 2 брата. младшему 2 года, а старшему 8 лет. старший учится в 4 классе. может ли такое быть?

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.