Var a,b: Real;
begin
writeln('Введите a и b');
readln(a,b);
if a>b then
begin
a:=a*10;
b:=b/10;
end;
if a<b then
begin
b:=b*10;
a:=a/10;
end;
if a=b then
begin
b:=b*10;
a:=a*10;
end;
writeln('a: ',a);
writeln('b: ',b);
end.
Ответ:
достаточно приятным интерфейсом (если сравнить с 98 виндой) не нужно почти ничего скачивать самим windows 10 спокойно в фоне всё сама скачает возможность запускать современный софт
Налить в ведро где входит 5 литров, либо ошибка в условии