const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
Оперативная память для обработки и хранение информации это оперативная память
1. антивирусная защита
2.архиватор
3.программа для записи дисков
3.офисный пакет
4.программа для просмотра видео
5.интернет браузер
6.утилиты.
Var
x, y, z, d: real;
function min(a, b: real): real;
begin
if a < b then
min := a
else min := b;
end;
function max(a, b: real): real;
begin
if a > b then
max := a
else max := b;
end;
begin
readln(x, y, z, d);
writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.
program tri_chisla;
var a,b,c:integer;
begin
writeln ('Vvedit tri chisla a,b,c');
readln (a,b,c);
If (a<b) and (a<c) then
writeln ('Naymenshim chislom e - ',a)
else begin If (b<a) and (b<c) then
writeln ('Naymenshim chislom e - ',b)
else begin If (c<b) and (c<a) then
writeln ('Naymenshim chislom e - ',c) end; end;
//Я немного не понял какую именно блок схему тебе нужно.
readln
end.