Question

Program bar;
var a,b,c:intenger;
begin
read(a,b)
If a=b then
begin
c:=(a*b)/2
write(c)
end
else write(a,b);
End.
Кому не трудно у кого есть программа паскаль введите туда им любой числом то что вышло напишете пожалуйста
Заранее спасибо

Answer 1

если а=б, то выведет a*b/2
иначе выведет а и б

Answer 2

1 и 2 - выведет 1 и 2

Answer 3

1 и 1 - выведет 1

Answer 4

вернее 0,5

Answer 5

Не,не так

Answer 6

что не так? тебе этот код другого не выведет