Для заданного числа R вывести (‘R<0’), если R отрицательное, и вычисляет площадь круга радиуса R, если R >=0. Составьте алгоритм(в письменном виде)
и программу (на компьютере).

1)Устройства ввода - это устройства, которые переводят информацию с языка человека на машинный язык.
Клавиатура – клавишное устройство для ввода числовой и текстовой информации.
Координатные устройства ввода - манипуляторы для управления работой курсора (Мышь, Трекбол, Тачпад, Джойстик).
Сканер – устройство ввода и преобразования в цифровую форму изображений и текстов. Существуют планшетные и ручные сканеры.
Цифровые камеры  – формируют любые изображения сразу в компьютерном формате.
Сенсорные устройства ввода
2)Устройства вывода  - это устройства, которые переводят информацию с машинного языка в формы, доступные для человеческого восприятия.
Монитор (дисплей) - универсальное устройство визуального отображения всех видов информации.
Принтер – устройство для вывода информации в виде печатных копий текста или графики.
Плоттер (графопостроитель) – устройство, которое чертит графики, рисунки и диаграммы под управлением компьютера.
Акустические колонки и наушники – устройство для вывода звуковой информации
3)виды памяти
-внутренняя память
Оперативная память (ОП) предназначена для  временного хранения выполняемых программ и данных, обрабатываемых этими программами. Это энергозависимая память. Физически реализуется в модулях ОЗУ (оперативных запоминающих устройствах) различного типа. При выключении электропитания вся информация в оперативной памяти исчезает.
Кеш память - очень быстрая память малого объема служит для увеличения производительности компьютера, согласования работы устройств различной скорости.
Специальная - постоянная, Fiash, видеопамять и тд.
---Внешняя память - это память, предназначенная для длительного хранения программ и данных. Целостность содержимого ВЗУ не зависит от того, включен или выключен компьютер
Дисковод (накопитель), Носитель информации (носитель записи).

Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);

const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin 
count:=0; 
for i:=1 to n do begin 
for j:=1 to m do begin 
a[i,j]:=random(100)-50; 
write(a[i,j]:3, ' '); 
end; 
writeln; 
end; 
for i:=1 to n do  
for j:=1 to m do begin 
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1; 
end; 
writeln('Количество отрицательных нечетных элементов: ', count);
end.