Даны два числа а и в если первое больше второго найти его утроенную разность

1

Ответы и объяснения

2013-12-13T00:58:11+04:00
Program r;
uses crt;
var
a,b,c: integer;
begin
Writeln ('Введите a,b');
Read (a,b);
if a>b then
begin
c:=3*(a-b);
Write (c);
end
else
Write ('Первое чиcло меньше второго');
end.