Var i, n, j: integer; begin write('Введите n '); readln(n); if (n>=1) and (n<=100) then for i:=1 to n do begin for j:=1 to i do write('*'); writeln; end; <span>end.</span>
program zadanie1; var max,num,a :byte; begin max:=0; writeln('vvodite chisla'); repeat readln(a); if a*a>225 then writeln('Slishkom bolshoe chislo') else if max<a then max:=a ;