6. Вывести на экран таблицу перевода температуры из градусов по шкале…

На паскале varA,B: array [0… 15] of real; i: integer; BeginFor i: =0 to 15 doA[i]: =i*2; For i: =0 to 15 do beginB[i]: =1,8*A[i]+32; Writeln (A[i],' градуса (ов) ','=',B[i],' по Фаренгейту'); end; end. ВОТ ЕЩЕ ЧЕРЕЗ WHILE varA,B: array [0… 15] of real; i: integer; BeginFor i: =0 to 15 doA[i]: =i*2; i: =0; While i <= 15 do beginB[i]: =1,8*A[i]+32; i: =i+1; end; For i: =0 to 15 doWriteln (A[i],' градуса (ов) ','=',B[i],'по Фаренгейту'); end.