Изучи предложенный код программы и определи соответствующий результат. выбери 4 верных ответа

1)при определении белого цвета робот поворачивается на право 45, мощность мотора 60.
2) когда датчик цвета определит черный цвет, мотор включится, и робот начнет двежение вправо и скажет стоп
3)когда датчик цвета определит черный цвет, мотор включится, робот начнет движение и скажет вперед
4)когда датчик цвета определит черный цвет, мотор выключится и робот скажет стоп
5) при определении черного цвета робот движется, мощность мотора 50
6) когда датчик цвета определит белый цвет, мотор включится, и робот начнет движение вправо и скажет стоп
7)при определении черного цвета робот движется прямо, мощность мотора 60
8)при определеннии белого цвета робот движется прямо, мощность мотора 50

​

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

первым человеком, если доверять , кому все таки удалось расшифровать   египетские иероглифы, был французский ученый египтолог жан-франсуа шампольон (1790-1832гг). он постарался составить полный список иероглифов (доступных и понятых им на те времена) и их греческих эквивалентов, создав таким образом основу для перевода всех остальных египетских иероглифических текстов.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.