Що буде результатом виконання даного циклу в мові програмування Free Pascal? *

​

ответ

s:=10

a:=4

Объяснение

i:=1

s:=2+2*2

s:=6

a:=2+1

a:=3

i:=2

s:=6+2*2

s:=10

a:=3+1

a:=4

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

двоичная (10000), восьмеричная (20), шестнадцатеричная (10)