Помогите срочно с информатикой прошу

Программа для вычисления суммы первых 150 чисел:
pascal
1
program SumOfFirst150Numbers;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 150 do
begin
sum := sum + i;
end;
writeln('Сумма первых 150 чисел равна: ', sum);
end.
Программа для таблицы умножения:
pascal
2
program MultiplicationTable;
var
number, i: integer;
begin
writeln('Введите число от 2 до 9:');
readln(number);

if (number >= 2) and (number <= 9) then
begin
writeln('Таблица умножения на ', number, ':');
for i := 1 to 10 do
begin
writeln(i, ' x ', number, ' = ', i * number);
end;
end
else
begin
writeln('Введите число от 2 до 9.');
end;
end.
Скопируйте каждую из этих программ в Pascal ABC и выполните их по отдельности.