Программа

Program Pilshikov_5_20 (input,output);
{ Напечатать таблицу значений функций 
  sin(x) и cos(x) на отрезке [0,1]
  с шагом 0.1 }
Const
  m=8;
  n=4;
Var
  i:integer;
BEGIN
  writeln('x  ':m,'sin(x)':m,'cos(x)':m);
  writeln('  ----------------------');
  for i:=0 to 10 do writeln(i/10:m:n,sin(i/10):m:n,cos(i/10):m:n)
END.