fork download
copy 
  1. program ideone;
  2. var s, t: integer;
  3.     begin 
  4.     readln(s);
  5.     readln(t);
  6.     if (s>= 10) or (t> 10)
  7.     then writeln ( 'Да' )
  8.     else writeln ( 'Нет')
  9.     end.
Success #stdin #stdout 0s 5192KB
comments (?)
stdin
copy 
10 5
stdout
copy 
Да
https://ideone.com/JnmDMO
language:
Pascal (fpc 3.0.4)
created:
1 day 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!