Программа

Program Pilshikov_5_20 (input,output);
{ Напечатать таблицу значений функций
  sin(x) и cos(x) на отрезке [0,1]
  с шагом 0.1 }
Const
  FirstPoint=0;
  FinalPoint=1;
  Step=0.1;
  m=8;
  n=4;
Var
  x:real;
BEGIN
  x:=FirstPoint;
  writeln('x  ':m,'sin(x)':m,'cos(x)':m);
  writeln('  ----------------------');
  while x<=FinalPoint do Begin
                           writeln(x:m:n,sin(x):m:n,cos(x):m:n);
                           x:=x+Step
                         End
END.