1) Информация
2) Файл
3) Программа
4) Питание
5) Окно
6) Сеть
Program z1;
var v,s,t = integer;
begin
readln(s);
readln(t);
v=s/t;
writeln(v);
end.
Это вид информации, поступающей по проводящим путям сенсорных систем и вызывающей определённый вид ощущений(например - зрительная модальность или слуховая модальность)
3430000.............................
var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.