Составить программу, печатающую на экране следующую фигуру: * ** *** **** ***** ****** буду вам !

vari,j: integer; beginfor i: =1 to 6 do beginfor j: =1 to i dowrite('*'); writeln(); end; end.

Program a;   // имя программы var n: string; // четырехзначное число будем вводить с клавы var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234 var sa: double; // среднее арифметическое begin // начало read( n ); // вводим с клавиатуры число n val( n[1], n1, err ); // первая цифра числа n val( n[2], n2, err ); // вторая цифра числа n val( n[3], n3, err ); // третья цифра числа n val( n[4], n4, err ); // четвертая цифра числа n sa : = ( n1 + n2 + n3 + n4 ) / 4;   // находим среднее арифметическое if ( sa / 2 = trunc( sa / 2 ) ) and ( sa > 5 ) then write( sa ); // если оно четное и больше пяти - выдаем значение на экран end.  // конец

1. var x: integer; y: real; begin write('введите значение аргумента "x" : '); readln(x); y: =3*cos((5*x)); writeln('значение функции "y" = ',y); readln; end.2.varx,b: integer; beginwrite('введите количество молока, полученного за день, л : '); readln(x); write('введите количество дней : '); readln(b); writeln('количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.   3.vara,b,c: integer; beginwrite('введите двузначное число: '); readln(a); b: =a div 10; c: =a mod 10; writeln(b,#10,c); end.4.varb: integer; a: longint; beginwrite('введите целое число: '); readln(a);   b: =a div 100 mod 100; writeln(b); readln; end.5.  vara,b: integer; beginwrite('введите числа : '); readln(a,b); if a and b mod 2=0 then  writeln(a+b); if a and b mod 2< > 0 then  writeln(a*b); readln; end. {про последнее "иначе", увеличьте все числа в пять раз и выведите результаты" не оба чётные - сумма, если оба - нечётные - то произведение. а если иначе, то число должно быть равно нулю. смысл увеличивать его в пять раз? )}