Pascal — различия между версиями

Материал из synset
Перейти к: навигация, поиск
Строка 1: Строка 1:
 
Pascal
 
Pascal
  
<source lang="pascal">
+
<pre class='brush:pascal'>
 
begin
 
begin
 
end.
 
end.
</source>
+
</pre>
 +
 
  
 
  var
 
  var

Версия 12:47, 16 февраля 2010

Pascal

begin
end.


var
   f1,f2:text;
   sum,a,b:integer;
begin
   Assign(f1,'input.dat');
   Assign(f2,'output.sol');
   Rewrite(f2);
   Reset(f1);
   Read(f1, a);
   Read(f1, b);
   close(f1);
   sum:=a+b;
   Write(f2, sum);
   close(f2);
end.