Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

Question

Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program prim; uses crt; var a,b,r: integer; begin clrscr; writeln ('ввести два числа'); readln (a,b); if a>b then begin r:=a-b; end else begin r:=b-a; end; writeln ('r=', r:5); readkey; end.