Используя любой цикл вычислите значения квадратов косинусов в интервале от 0 до 7,770 с шагом 0,1. Если не сложно,то ещё можно блок схему нарисовать

//Pascal:program cosinusi;var i: real;begini:= 0;while(true)do beginif(i <= 7,770)then writeln("Cos(", i, ") = ", sqr(cos(i)):0:2)else exit;i:= i + 0,1;end;end.