ну смотря чего если чисел то это калькулятор но я не думаю что это одно из первых устройств
//pascal
var a,b,c,n: integer;
begin
n:=0;
readln(a);
if a mod 2 = 0 then n:=n+1;
readln(b);
if b mod 2 = 0 then n:=n+1;
readln(c);
if c mod 2 = 0 then n:=n+1;
writeln('Четных : ', n);
end.
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.