Нет. Надо нарисовать 50+ линий? Сделай массив и, пройдясь по нему, рисуй эти линии
Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
Program al;
var a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a<0) and (b<0) then writeln(a*b)
else
writeln(a+b);
readln;
<span>end.</span>
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
<span>months = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
years = 1900..2100;
people = array[years] of longint;
var
growth: array[months] of real;
hum: people;
notes: array[1..n] of string;</span>