Программа для задачи 1:

program WeekdayNames;
var
dayNumber: integer;
begin
writeln('Введите номер дня недели: ');
readln(dayNumber);
case dayNumber of
1: writeln('Понедельник / Monday');
2: writeln('Вторник / Tuesday');
3: writeln('Среда / Wednesday');
4: writeln('Четверг / Thursday');
5: writeln('Пятница / Friday');
6: writeln('Суббота / Saturday');
7: writeln('Воскресенье / Sunday');
else
writeln('Некорректный номер дня недели');
end;
end.

Программа для задачи 2:

program SquareNegatives;
var
a, b, c: real;
begin
writeln('Введите значение переменной a: ');
readln(a);
writeln('Введите значение переменной b: ');
readln(b);
writeln('Введите значение переменной c: ');
readln(c);
if a < 0 then
a := sqr(a);
if b < 0 then
b := sqr(b);
if c < 0 then
c := sqr(c);
writeln('a = ', a:0:2);
writeln('b = ', b:0:2);
writeln('c = ', c:0:2);
end.

Это две программы на языке Паскаль для решения задач о днях недели и возведении в квадрат отрицательных чисел. Программы были написаны с учетом условий задач.