Найди в интернете калькулятор и всё
Var A:array[1..6,1..6]of integer;
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;
for i:=1 to 6 do A[i,1]:=1;
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],' ');
writeln();
end;
<span>end.</span>
Задать на значение ответ
Если на= Токио,то
Говорить «Молодец» в течении 2 секунд
Иначе
Говорить «Столица Японии-Токио» в течении 2 секунд
Ответ:
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.