Тема: помогите решить задачку...
Показать сообщение отдельно
  #7  
Старый 01.06.2010, 11:58
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
  
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию
program C;
var a,b,c,d:integer;
procedure P(var b:integer;c:integer);
var d:integer;
begin a:=5;b:=6;c:=7;d:=8;(writeln(a,b,c,d)end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием