Первая программа может выглядеть так:
uses Crt;
const n =6;
Type Mas= array [1..n] of integer;
var A: Mas;
i, Sum : integer;
begin
ClrScr;
Sum:= 0;
for i:=1 to n do
begin
A[i]:=i*i;
Sum:=Sum+A[i];
end;
for i:=1 to n do
if (A[i] mod 4=0 ) then WriteLn(' Номер школы: :', i);
Writeln (' Количество компьютеров: ', Sum);
ReadLn;
end.
Только приветствие , ничего больше не несет
<em><u>Блок-схема во вложении.</u></em>
var
x,y,c:double;
begin
Write('x='); Read(x);
Write('y='); Read(y);
if x=y then c:=sqr(x+y)+sin(x)
else
if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
else c:=x+y+tan(x);
Write('c=',c)
end.
<em><u>Тестовое решение:</u></em>
x=0.563
y=-1.514
c=-0.319863379954563
Для вывода текста оператором writeln необходимо указывать текст в скобках
например writeln("какой-то текст")
1)В случаях когда надо показать отношения чего-то к чему-то
2)Они могут быть построены когда надо сравнить несколько данных и показать это наглядно