Advertisement
Varvara_Golovnova

Untitled

Nov 28th, 2024
11
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. var
  2. x,y : array [1..100] of real;
  3. x1,x2,x3,x4,y1,y2,y3,y4 : real;
  4. n,i,k,sum : longint;
  5. begin
  6. readln(x1);
  7. readln(y1);
  8. readln(n);
  9. for i:=1 to 2 do
  10. readln(x[i],y[i]);
  11. for i:=1 to 2 do
  12. sum:=0;
  13. for i:=1 to 2 do
  14. sum:=sum+x;
  15. writeln(sum);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement