fork download
copy 
  1. program SquareOfDifference;
  2. var a, b, res: real;
  3. begin
  4.     a := 7;
  5.     b := 3;
  6.     res := (a - b) * (a - b);
  7.     writeln('Квадрат разности: ', res:0:2);
  8. end.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
1
stdout
copy 
Квадрат разности: 16.00
https://ideone.com/KDoE6D
language:
Pascal (fpc 3.0.4)
created:
4 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!