// Попробуйте, если что не так пишите
//If6
uses PT4;
begin
Task('If6');
var (a, b) := ReadReal2();
if a > b then
Write(a)
else
Write(b)
end.
//
//For4;
uses PT4;
begin
Task('For4');
var Price := ReadReal();
for var i := 1 to 10 do
Print(i * Price)
end.
