Счеты - 1952 год - Николаас Витсен
Линейка для нав.расчётов - 1622 год - Уильям Отред
Мех.Счётная маш.Арифметр - 1623 - Вильгельмом Шиккардом
Выч. Автомат - 1881 - П. Л. Чебышевым
Аналитич.Машина - 1788 - Чарльз Бэббидж
Счётно.Перф.Машина - 1801 - Герман Холлерит
Выч.Машина (Марк-1) - 1941 - Чарлз Бэббидж
Электр.Компьютер - 1946 - Конрад Цузе
ЭВМ - 1941 - Конрад Цузе
EDSAC - 1949 - Морис Винсент Уилкс
МЭСМ - 1948 - Сергей Алексеевич Лебедев
Ответ:
кажется системный блок или что то такое
Var a,n: integer; s:longint;
begin
s:=0;
n:=0;
readln(a);
while a<>0 do begin
n:=n +1;
if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
readln(a);
end;
writeln(n);
writeln(s)
end.
В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
Щелкаешь ПКМ по надписи: выровнять: прямая строка с переносом: применить для всех: сохранить.