Pascal Подпрограммы

uses
crt;
var
x,y,m:integer;
Procedure one(var x,y:integer);
writeln('числа');
readln(x,y);
Procedure two(var x,y:integer; m:integer;);
begin
m:=x+y
end;
Procedure th(x,y,m:integer;);
begin
writeln('первое',x,'второе',y,'равно',);
end;
begin
one(x,y)
two(x,y,m)
Th(x,y,m)
end.
По этой программе нужен алгоритм и блок схема,помогите плиз

 

Зачем везде делал процедуры? Зачем тебе в uses CRT?

Можно же просто:

Блок схема(если правильно понял)(не понимаю зачем нужна блок схема тут):
1)Начало
2)Введение чисел x и y
3)m=x+y
4)Вывод чисел x и y
5)конец

 

На сколько я понял им дали такое задание, хотя да я согласен из постом выше что можно было сделать проще.

Ведь главное в Паскале это экономичность и компактность)

А по поводу вопроса зачем "uses crt;" я сам его очень часто пишу в программах) А то бесит, когда по новому её включаешь) а оно оставляет прежнее)
У меня вопрос в другому, почему если он crt подключил, то не использует его))

 

Я бы чуть по другому вывод сделал.

Фон и цвет текста добавил, по привычке) Меня угнетает черный экран и белые циферки) Поэтому красивей так)