Створіть проект, у якому в результаті настання події Click для кнопки її роз- міри стануть 50 х 50 пікселів (ширина – 50 символів, висота
- - 5 сим-)
волів) і текст на кнопці зміниться на Мій проект, а в результаті настання
події MouseMove для кнопки кнопка переміститься на 30 пікселів управо та
на 40 пікселів униз і стане недоступною (установиться жовтий колір
фону кнопки та її стан – недоступний). Збережіть проєкт у папці з іменем
Завдання 6.3.5, створеній у вашій папці.
с

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

ответ 2

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.