//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,0,10); mas.Println;
var k:=Readinteger('Введите индекс элемента который находится в диапазоне 0..20:->');
var a:=mas.Where(t->t=0).Count; Writeln('Количество 0=',a); mas[k]:=a;
mas.Println;
end.
Прямые углы, все стороны равны, проведённые диагонали равны.
Program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
write ('Введите количество дюймов: ');
readln(d);
s := d*m;
writeln (d, ' дюймов = ', s, ' сантиметров')
end.
Упрощенный вариант:
program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
readln(d);
s := d*m;
writeln (s)
end.