Число 2 складывается десять раз, найти результат с помощью цикла for-to-do — Pascal(Паскаль)

uses wincrt;
const n=10;
var i:integer;
     s:real;
begin
 clrscr;
  s:=0;
  for i:=1 to n do
   begin
    s:=s+2;
  end;
 write('s=', s:4:2);
End.