Переменная cos имеет тип real её значение 7.542e-01 нужно её округлить до сотых ,но не в виде writeln(cos: 4: 2) (тоесть не при выводе ответа, а для промежуточных вычислений) а в виде cos: =

Var s: real;
begin
   write('задайте число: ');
   readln(s);
   s:=Round(s*100);
   s:=s/100;
   writeln(s);
end.