Напишите программу по описанию. Размеры многострочного текстового поля определяются значениями, введенными в однострочные текстовые поля. Изменение размера происходит при нажатии мышью на кнопку, а также при нажатии клавиши Enter. Цвет фона экземпляра Text светлосерый (lightgrey), когда поле не в фокусе, и белый, когда имеет фокус.
Событие получения фокуса обозначается как , потери – как .
Для справки: фокус перемещается по виджетам при нажатии Tab, Ctrl+Tab, Shift+Tab, а также при клике по ним мышью (к кнопкам последнее не относится).

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

program e8;

var a, b, c, v: real;

begin

writeln('введите значения длины, ширины,высоты');

readln(a,b,c);

v: =a*b*c;

writeln('v=', v: 4: 2);

readln;

end.