Ответ на Ваш вопрос - это "источник".
Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
writeln('Сумма двух чисел кратна пяти.')
else
writeln('Сумма двух чисел не кратна пяти.');
end.
Довольно неплохо будет смотреться линейчатая диаграмма - она позволяет наглядно показать разницу в значениях.
Если взять масштаб 1 см - 1000 км, диаграмма будет слишком мелкой. Я предлагаю взять масштаб 1 см - 500 км.
Var a:array[1..100] of integer;
i,p,m:integer;
begin
p:=0;
m:=0;
for i:=1 to 100 do begin
a[i]:=random(-20,20);
if a[i]>0 then p+=1 else
m+=1;
end;
writeln('Положительных - ',p,' отрицательных - ',m);
<span>end.</span>
<span>Как</span><span> </span><span>выделить</span><span> </span><span>весь</span><span> </span><span>текст?</span>
<span>
</span>
<span>
</span>
<span>Shift + Еnd - выделение текста от текущего места до конца строки.</span>
Ctrl + A - выделение всего текста в документе.
<span>Shift + Home - выделение текстат от текущего места до начала строки.</span>
<span>Shift + стрелки - выделение текста от текущего места в указанном направлении. </span>