Question

ПОМОГИТЕ ПОЖЛСТ!СРОЧНО!ЯЗЫК ПРОГРАМИРОВАНИЯ-PASCAL!!!

Answer 1

// Попробуйте, если что не так пишите

//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.