Определить возможные варианты выходных данных, если на экран будет выведено сообщение "привет,Марат"

Теоретическая информатика – матем.дисциплина, использующая методы математики для построения и изучения моделей обработки, передачи и использования информации. Она создаёт тот теоретический фундамент, на котором строится всё здание информатикиКибернетика – наука об управлении в живых, неживых и искусственных системах. Может рассматриваться, как прикладная информатика в области создания и использования автоматических или автоматизированных систем управления разной степени сложности: от управления отдельным объектом (станок, автомобиль), до сложнейших систем управления целыми отрослями промышленности, банковскими системами, системами связи и даже сообществами людей. Наиболее активно развивается техническая кибернетика, результаты которой используются для управления в промышленности и науке.Программирование – сфера деятельности, направленная на создание отдельных программ и пакетов прикладных программ, разработку языков программирования, создания операционных систем, организацию взаимодействия компьютеров с протоколов связи.ИИ – цель работ в этой области направлена на раскрытие и постижение механизмов творческой деятельности людей, их к овладению навыками, знаниями и умениями. Исследования в области ИИ необходимы при создании роботов, создании баз знаний и экспертных систем на основе этих баз знаний.Информационные системы – системы, предназначенные для хранения, поиска и выдачи информации по запросам пользователей.Вычислительная техникаЗащита информации

//PascalABC.NET 3.2 сборка 1318

//1

uses
  GraphABC;
  Var
  a,h,x,y:integer;
  c:char;
begin
writeln('Read or random? n/r');
repeat
readln(c);
until (c='n') or (c='r');
if c='r' then
  begin
    a:=random(200);
    writeln('Длина ребра=',a,', Объём=',power(a,3));
  end
else
  begin
    readln(a);
    writeln('Объём=',power(a,3));
  end;
x:=windowwidth div 2;
y:=round(windowheight*1/3);
line(x,y,x,y+a);
line(x+a,y,x+a,y+a);
line(x,y+a,x+a,y+a);
line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2);
line(x,y,x+a,y);
line(x+a div 2,y+a div 2,x+a div 2,y-a div 2);
line(x,y,x+a div 2, y-a div 2);
line(x,y+a,x+a div 2, y+a div 2);
line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2);
line(x+a div 2+a, y-a div 2,x+a,y);
line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a);
line(x+a div 2+a, y-a div 2+a,x+a,y+a);
end.

Пример ввода:
n
16
Пример вывода:
Объём=4096

//2

Var
  X,P:integer;
beginwrite('X:');
readln(X);
write('P:');
readln(P);
if not(odd(X)) then writeln('Кратно 2');
if X mod 3=0 then writeln('Кратно 3');
if X mod P=0 then writeln('Кратно ',P);
end.

Пример ввода:
18
6
Пример вывода:
Кратно 2
Кратно 3
Кратно 6