Компьютер является универсальным автоматическим устройством для работы с чем?

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.