Решить ОЧЕНЬ задания. Сам не могу, нету доступа к программе.

Відповідь:

1. 5

2. 240

Пояснення:

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.