Где находится карта памяти в компьютере?

Всъемном диске она может быть

Всистемном блоке,наверное)

Var a: integer; begin writeln('введите число '); readln(a); if a=1 then writeln('январь. 31 день'); if a=2 then writeln('февраль. 28 дней (29 в високосном году)'); if a=3 then writeln('март. 31 день'); if a=4 then writeln('апрель. 30 дней'); if a=5 then writeln('май. 31 день'); if a=6 then writeln('июнь. 30 дней'); if a=7 then writeln('июль. 31 день'); if a=8 then writeln('август. 31 день'); if a=9 then writeln('сентябрь. 30 дней'); if a=10 then writeln('октябрь. 31 день'); if a=11 then writeln('ноябрь. 30 дней') if a=12 then writeln('декабрь 31 день') end.

Function f(x: real): real; begin   f : = (x - 3) / (sqr(x) + 2) end; var   a, b, x, fa, fb, fx, eps: real; begin   write('введите через пробел границы интервала [a; b] и точность: ');   readln(a, b, eps);   fa : = f(a);   if abs(fa) < = eps then writeln('x=', a, ', y=', fa)   else begin       fb : = f(b);       if abs(fb) < = eps then writeln('x=', b, ', y=', fb)       else       if fa * fb > 0 then writeln('на указанном интервале корней нет')       else           repeat               x : = (a + b) / 2;               fx : = f(x);               if abs(fx) < = eps then writeln('x=', x, ', y=', fx)                   else               if fa * fx > 0 then a : = x else b : = x;           until abs(fx) < = eps   end end. результат выполнения программы: введите через пробел границы интервала [a; b] и точность: -1 4 1e-4 x=2.9990234375, y=-8.88257162245635e-05