PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
2.
var x:real;
begin
read (x);
if (x>0) then writeln (x-2);
if (x=0) then writeln (10);
if (x<0) then writeln (x*x*x);
end.
Program Main;
var c1, c2, c3, t1, t2, t3, s: integer;
Begin
Readln (c1, c2, c3);
Readln (t1, t2, t3);
c1:=c1*t1;
c2:=c2*t2;
c3:=c3*t3
s:=c1+c2+c3;
Writeln (c1);
Writeln (c2);
Writeln (c3);
Writeln (s);
Readln;
End.
Система — это совокупность взаимосвязанных элементов, объединенных в одно целое для достижения некоторой цели, которая определяется назначением системы. При этом элемент — это минимально неделимый объект, рассматриваемый как единое целое.
Гугл в помощь