Служебное слово const в программе на языке pascal фиксирует начало раздела программы содержащего​

константы, например рi=3.1416

const - служебное слово программе константу, то есть неизменяемое значение.

оно задаётся следующим образом:

const

    pi = 3.14;

    name = 'михаил'

    a = 123;

cлужебное слово const в программе на языке pascal фиксирует начало раздела программы содержащего​ константы.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.