12 lines
287 B
ObjectPascal
12 lines
287 B
ObjectPascal
// Âûâîä ðåçóëüòàòîâ âû÷èñëåíèé. Èñïîëüçóþòñÿ ïåðåìåííûå è ïðîöåäóðà ââîäà
|
|
var a,b: integer;
|
|
|
|
begin
|
|
writeln('Ââåäèòå a è b:');
|
|
readln(a,b);
|
|
writeln;
|
|
writeln(a,' + ',b,' = ',a+b);
|
|
writeln(a,' - ',b,' = ',a-b);
|
|
writeln(a,' * ',b,' = ',a*b);
|
|
writeln(a,' / ',b,' = ',a/b);
|
|
end. |