Написать программу в паскале для вычисления,

var h1,m1,n,d,p,h2,m2: integer;
begin
  write('начало занятий (часы, минуты): ');  readln(h1,m1);
  write('количество уроков: ');  readln(n);
  write('длительность уроков: ');  readln(d);
  write('длительность перемен: ');  readln(p);
  m2:=m1+n*d+(n-1)*p;
  h2:=h1+m2 div 60;
  m2:=m2 mod 60;
  writeln('время окончания занятий: ',h2,' часов   ',m2,' минут');
end.

начало занятий (часы, минуты): 9 30
количество уроков: 4
длительность уроков: 45
длительность перемен: 10
время окончания занятий: 13 часов   0 минут

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.