Костя и Петя занимаются лёгкой атлетикой. Сегодня они точно выяснили, что Костя за 1 час...

Question

Костя и Петя занимаются лёгкой атлетикой. Сегодня они точно выяснили, что Костя за 1 час может пробежать расстояние К1 километров M1 метров, а Петя может пробежать расстояние К2 километров M2 метров. Мальчишки очень устали. Помогите им посчитать, какое будет между ними расстояние, если они втечение двух часов будут бежать в разные стороны.
Входные данные:
K1 M1 – целые числа (0<=K1<=10, 0<=M1<1000)<br> K2 M2 – целые числа (0<=K1<=10, 0<=M1<1000)<br> Выходные данные:
К3 M3 расстояние между ребятами через два часа
Пример:
Ввод Вывод
1 200
1 200 4 800
3 300
2 720 12 40
Помогите составить программу для Pascal ABC

Answer 1

Uses crt; var k1,k2:integer; m1,m2:integer; rezk,rezm:integer; begin clrscr; writeln('введите сколько пробежал Костя k , m за час'); readln(k1, m1); writeln('введите сколько пробежал Петя к , м за час'); readln(k2, m2); if (010) and (k2>10) and (m1>1000)and(m2>1000)then begin writeln('ошибка'); end; end. незачто