Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто
Нельзя:
Есть, пить напитки.
Заходить с грязными руками.
Выключать компьютер часто.
Дергать за провода.
Шуметь и бегать по классу
находится в кабинете на перемене.
Запускать посторонние программы
Удалять, перемещать или переименовывать программы , папки, файлы.
Вариант ответ: 2
______________________________