Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  blabla
Language: PASCAL
Code:
program bla;

var m : integer;
    ab : real;

begin
     Write('Virves ilgis: '); Read(m);
     //x+y = m/2
     //y = m/2 - x
     //S = x*y
     //S = -x*x + (m/2)*x
     //x = -b/2a = -(m/2)/-2 = m
     
     


     Readln();
     Readln();
end.          
Comments: