Advertisement
Varvara_Golovnova

Untitled

Dec 8th, 2024
22
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. var
  2. x1,x2,y1,y2,nom : longint;
  3. begin
  4. readln(x1,y1);
  5. readln(x2,y2);
  6. nom:=x[i];
  7. if x1<x2
  8. then writeln(nom);
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement