Написать программу в Pascal по 2 способам repeat и while.Сделать блок-схему

На TP7varx,i:integer;s:real;begin    write('vvedite x: ');    readln(x);    i:=1;    repeat          i:=i+1;           s:=s+i*cos(i*x);    until i=15; writeln('s=',s);end.var x,i:integer;s:real;begin  write('vvedite x: ');  readln(x);   i:=1;   while i<16 do        begin            i:=i+1;            s:=s+i*cos(i*x);         end;    writeln('s=',s);end.Имейте в виду, что алгоритмы построены по коду автоматически, и препод это сразу увидит.