var Scitanec1, Scitanec2, Soucet: Integer;
begin { program }
Write ('první sčítanec: '); { zadání hodnoty }
ReadLn (Scitanec1); { prvního sčítance }
Write ('druhý sčítanec: '); { zadání hodnoty }
ReadLn (Scitanec2); { druhého sčítance }
Soucet := Scitanec1 + Scitanec2; { výpočet součtu }
WriteLn (Scitanec1, ' + ', Scitanec2, { tisk výsledku }
' = ', Soucet)
end. { program }
je to kod okopirovany z toho navodu na Pascal - chcel som si ho nim iba otestovat, odskusat co a ako.
|