Ответ:
program HelloWorld;
var x,y : integer;
begin
x:=15;
y:=12;
while (x<>y) do
begin
if x > y then x:=x-y
else y:=y-x;
end;
if(x=y)then writeln(x);
end.
я не понял откуда появилась переменная V , так что счел это за опечатку.
Объяснение:
Блок-схема - в прилагаемом файле.
6-угольник - это цикл, который проходит все элементы массива х.
Ромб - это проверка четный элемент или нет (проверяется четность его позиции в массиве - 0 - четный, 1 - нечетный, 2 -- четный и тд.)
У тебя запятые в скобках немного не на местах стоят
program pr;var m:string;beginread(m);writeln('Мой повелитель', ' ', m);end.
Если введёшь с всё имя, то всё будет стоять на месте.
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;