Компьютер это система так как она состоит из подсистем и взаимосвязанных элементов.
var
a:integer;
begin
writeln('Num'); readln(a);
if (a > 0) and (a < 5) then begin
case a of
1:writeln('Один');
2:writeln('Два');
3:writeln('Три');
4:writeln('Четыре');
end
end
else
writeln(sqr(a));
end.
Б) программисты (алгоритмики это синоним к слову программисты).
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.
Получится машина
если / указывало место курсора