1# Sabiranje dva cela broja u paskalu

program sabiranje_dva_broja;
uses crt;
var
  x,y:integer;
 begin
  clrscr();
  x:=10;
  y:=12;
   writeln ('Suma=',x+y);
   readln;
  end.