SaveText.Ru

задача009
  1. program pr;
  2. uses crt;
  3. var a,b:integer;
  4. begin clrscr;
  5. writeln ('VVedite dwa chisla');
  6. readln(a,b);
  7. if a*b<0 then writeln(-2*a*b)
  8. else writeln(1.5*a*b);
  9. end.

Share with your friends:

Print