Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел (используя цикл с параметром в паскале потом такую же только цикл с предусловием, и еще одну цикл с постусловием

uses crt;

var ch,i,j: integer; beginfor i: =1 to 5 dobeginif (i mod 2 < > 0 ) thenwriteln('kvadrat ',i,' = ',sqr(i)); end; end.

 

выводит квадрат 1 = 1

квадрат 3   = 9

квадрат 5 = 25

K: =0; \\ for(i=0; i< 100; i++){                       if (a[i]> 17){                                     k++;                                       }                         } write('k=',k);

1) begin пишется через е 2) не written, а writeln 3) аналогично, не writelen, а writeln 4) не redlrn; а readln end; program primer1; {название без пробелов и с точкой и запятой}uses crt;             {подклжючение необходимых библиотек} var a, b, z: integer; {обьявление переменных, : после переменных, и ; после типа переменных} begin  {начало тела программы, ничего не ставится, так как єто начало исполнения программы}clrscr;   {очиска экрана} writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки} readln(a, b); {данные вводяться каждый с новой строки} z=a*b;   {поск произведения} writeln('произведени чисел =',z) {вывод на экран результата произведения} writeln ('нажми enter '; ) redln; {задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы энтер} end.{конец тела программі, ставиться не точка с запятой, а лишь точка}